Demo.nb

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

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

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     21973,        616]
NotebookOptionsPosition[     17666,        510]
NotebookOutlinePosition[     18053,        527]
CellTagsIndexPosition[     18010,        524]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Demo", "Title",
 CellChangeTimes->{{3.7038709535258017`*^9, 
  3.7038709547701397`*^9}},ExpressionUUID->"50ea6d7e-d956-4d6f-98a4-\
1541bb968573"],

Cell[CellGroupData[{

Cell["Set up", "Section",
 CellChangeTimes->{{3.704538635567565*^9, 
  3.704538641249872*^9}},ExpressionUUID->"e6b06139-71a3-4ef8-b3aa-\
7e34363df7c1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "skmfile", "=", 
   "\"\<Data/skel-w-msure-data/323-5_t35_proc_ma_skel.skMsure\>\""}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.703870992602256*^9, 3.7038709927971354`*^9}, {
  3.703872654162057*^9, 3.703872655391479*^9}, {3.704022087915949*^9, 
  3.704022089010128*^9}, {3.704642544459587*^9, 
  3.704642545613636*^9}},ExpressionUUID->"81287a06-bd8d-4962-a190-\
33c6b7c077b3"],

Cell[BoxData[{
 RowBox[{"Needs", "[", 
  RowBox[{
  "\"\<CornRootsFileReader`\>\"", ",", 
   "\"\<Packages/CornRootsFileReader.wl\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Needs", "[", 
  RowBox[{
  "\"\<VisualizationFunctions`\>\"", ",", 
   "\"\<Packages/VisualizationFunctions.wl\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Needs", "[", 
  RowBox[{
  "\"\<OperationFunctions`\>\"", ",", 
   "\"\<Packages/OperationFunctions.wl\>\""}], "]"}]}], "Input",
 CellChangeTimes->{{3.704027662826111*^9, 3.704027691404666*^9}, {
  3.704027727929264*^9, 3.704027851665022*^9}, {3.704475709297948*^9, 
  3.704475735532262*^9}},ExpressionUUID->"0e94fe85-83a1-415f-a7bc-\
e4b8b4f17125"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "vertices", ",", " ", "edges", ",", " ", "faces", ",", "edgeMeasure", ",",
      "faceMeasure"}], "}"}], "=", 
   RowBox[{"ParseSKMfile", "[", "skmfile", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"thickness", ",", "width", ",", "length"}], "}"}], "=", 
   RowBox[{"Transpose", "@", "edgeMeasure"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.703852864056313*^9, 3.703852875181716*^9}, {
  3.7038529055110064`*^9, 3.7038529102357264`*^9}, {3.703853580351993*^9, 
  3.7038535844805326`*^9}, {3.703860678938319*^9, 3.70386078312493*^9}, {
  3.7040278620465927`*^9, 
  3.704027862211356*^9}},ExpressionUUID->"2b00eb5f-8b00-438e-aed6-\
884da4a6ae52"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Functions", "Section",
 CellChangeTimes->{{3.7045386444755087`*^9, 
  3.704538645750016*^9}},ExpressionUUID->"55eb9f73-2ee6-4988-b670-\
0b83361f9f23"],

Cell[CellGroupData[{

Cell["Graph3DLength", "Subsection",
 CellChangeTimes->{{3.703871013437892*^9, 3.703871018521834*^9}, {
  3.7045386548253317`*^9, 
  3.7045386560701103`*^9}},ExpressionUUID->"a66f55d0-9833-4028-8c6d-\
771b79353658"],

Cell[BoxData[
 RowBox[{"all", "=", 
  RowBox[{"Graph3DLength", "[", 
   RowBox[{"vertices", ",", "edges", ",", "length"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.703854008085739*^9, 3.703854047109066*^9}, {
  3.703854090175661*^9, 3.703854095429368*^9}, {3.7038568691714563`*^9, 
  3.7038568872788467`*^9}, {3.703860963293684*^9, 3.703860977512938*^9}, {
  3.7045621990388412`*^9, 
  3.7045622092388887`*^9}},ExpressionUUID->"806ffbd7-d19f-47e9-8ce4-\
489133db7251"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Task 1: Extract Infinite Length Part", "Subsection",
 CellChangeTimes->{{3.703871032547737*^9, 
  3.70387104949722*^9}},ExpressionUUID->"7a6a749c-7554-4c74-83cc-\
687d08328879"],

Cell[BoxData[
 RowBox[{"loopGraphics", "=", 
  RowBox[{"ExtractInfinitePart", "[", 
   RowBox[{"vertices", ",", "edges", ",", "length", ",", "Blue"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.703871053501265*^9, 3.7038710709938507`*^9}, {
  3.7039418359008408`*^9, 3.703941858744454*^9}, {3.705154217717784*^9, 
  3.705154229451518*^9}},ExpressionUUID->"203ca6ca-a04c-4cc6-993a-\
d4b30c2657e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Task 2: Manipulate ", "Subsection",
 CellChangeTimes->{{3.7038710891735773`*^9, 
  3.703871093912315*^9}},ExpressionUUID->"f4f24648-651a-4279-972a-\
5e261003c465"],

Cell[BoxData[
 RowBox[{
  RowBox[{"loopEdges", "=", 
   RowBox[{"ExtractInfiniteEdges", "[", " ", 
    RowBox[{"edges", ",", " ", "length"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.70394115190414*^9, 3.703941221940833*^9}, {
  3.705154235976758*^9, 
  3.705154236594404*^9}},ExpressionUUID->"7445c4ac-fc2e-4b47-ab20-\
0098065dc28b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"limitedVertices", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
     "vertices", "\[LeftDoubleBracket]", "#", "\[RightDoubleBracket]"}], 
     "&"}], "/@", 
    RowBox[{"Union", "[", 
     RowBox[{"Flatten", "[", "loopEdges", "]"}], "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"minMaxOfVertices", " ", "=", " ", 
   RowBox[{"MinMax", "/@", 
    RowBox[{"Transpose", "[", "limitedVertices", "]"}]}]}], ";"}], "\n", 
 RowBox[{"boundingBox", "=", 
  RowBox[{"RescalingParameter", "[", "minMaxOfVertices", "]"}]}]}], "Input",
 CellChangeTimes->{{3.703867030580985*^9, 3.70386711334905*^9}, {
  3.703941317898458*^9, 3.703941337233375*^9}, {3.704028151341627*^9, 
  3.704028151774315*^9}},ExpressionUUID->"05c4f9c7-1e70-485d-84e8-\
3bb36caa8471"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"id1", " ", ",", "id2"}], "}"}], "=", 
     RowBox[{
     "loopEdges", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"p1", "=", 
     RowBox[{
     "vertices", "\[LeftDoubleBracket]", "id1", "\[RightDoubleBracket]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"p2", "=", 
     RowBox[{
     "vertices", "\[LeftDoubleBracket]", "id2", "\[RightDoubleBracket]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"midPt", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"p1", "+", "p2"}], ")"}], "/", "2"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{"loopGraphics", ",", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"i", ",", "Medium"}], "]"}], ",", "midPt"}], "]"}], ",", 
         "Thick", ",", "Red", ",", 
         RowBox[{"GraphicsComplex", "[", 
          RowBox[{"vertices", ",", 
           RowBox[{"Line", "[", 
            RowBox[{
            "loopEdges", "\[LeftDoubleBracket]", "i", 
             "\[RightDoubleBracket]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Boxed", "\[Rule]", "False"}]}], "}"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "boundingBox"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{
      RowBox[{"Length", "[", "loopEdges", "]"}], "-", "1"}], ",", "1"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7039418833908987`*^9, 3.703941895585691*^9}, {
  3.703944907170874*^9, 3.703944920669868*^9}, {3.703945744944969*^9, 
  3.703945831450429*^9}, {3.7039458884062347`*^9, 3.703945906135992*^9}, {
  3.703945969692473*^9, 3.7039460019878407`*^9}, {3.7039460327379103`*^9, 
  3.703946040733494*^9}, {3.7045584300411*^9, 
  3.704558430489868*^9}},ExpressionUUID->"bd1294c4-36a4-46d6-a785-\
61beab1f93c5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Task 3: Delete Edge", "Subsection",
 CellChangeTimes->{{3.704035759191824*^9, 3.7040357754827137`*^9}, {
  3.705154283069302*^9, 
  3.70515428600495*^9}},ExpressionUUID->"9c3835b4-87a7-42d5-a7d7-\
03660544f209"],

Cell[BoxData[
 RowBox[{
  RowBox[{"graphData", "=", 
   RowBox[{"MapThread", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#1", "\[UndirectedEdge]", "#2"}], "&"}], ",", 
     RowBox[{"Transpose", "@", "loopEdges"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.704479472742526*^9, 
  3.704479516675413*^9}},ExpressionUUID->"a33873d2-e3f1-42ce-a9da-\
11959bf5d9b3"],

Cell[BoxData[
 RowBox[{"vertexDegree3Pos", "=", 
  RowBox[{"FindVertexDegree3Position", "[", "graphData", "]"}]}]], "Input",
 CellChangeTimes->{{3.704479538410325*^9, 
  3.704479562289866*^9}},ExpressionUUID->"7239feed-9793-4950-b701-\
db5a1f70c9e3"],

Cell[BoxData[
 RowBox[{"vertexDegree3", "=", 
  RowBox[{"FindVertexDegree3", "[", "graphData", "]"}]}]], "Input",
 CellChangeTimes->{{3.704479565111278*^9, 
  3.704479585164754*^9}},ExpressionUUID->"4bb15a54-221f-4edc-b8d0-\
68f2f75887ff"],

Cell[BoxData[
 RowBox[{"ShowIntersectionPointByIndex", "[", 
  RowBox[{
  "loopGraphics", ",", "vertexDegree3Pos", ",", "vertices", ",", 
   "loopEdges"}], "]"}]], "Input",
 CellChangeTimes->{{3.704537644847418*^9, 
  3.704537669012938*^9}},ExpressionUUID->"c3afd79b-2f87-45fc-aae4-\
923f93f0fb4b"],

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"loopGraphG", ",", "disconnecedLoop"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Graph", "[", "graphData", "]"}], ",", 
     RowBox[{"DisconnectGraph", "[", 
      RowBox[{"graphData", ",", "\"\<Graph\>\""}], "]"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7044795933714657`*^9, 3.704479619920401*^9}, {
   3.704534963818667*^9, 3.7045350113978567`*^9}, 
   3.7045350770399227`*^9},ExpressionUUID->"65572597-8f4b-476a-b162-\
c3e55ce90bda"],

Cell[BoxData[
 RowBox[{
  RowBox[{"groupedEdges", "=", 
   RowBox[{"DisconnectGraph", "[", 
    RowBox[{"graphData", ",", "\"\<Data\>\""}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.704479647367875*^9, 3.704479656940412*^9}, {
   3.704534782705863*^9, 3.704534809645279*^9}, 
   3.704642704962749*^9},ExpressionUUID->"e524e464-ac5e-45e6-a24b-\
0a2496925ece"],

Cell[BoxData[
 RowBox[{"Graph", "[", 
  RowBox[{"Flatten", "@", "groupedEdges"}], "]"}]], "Input",
 CellChangeTimes->{{3.704534872179802*^9, 
  3.704534881382596*^9}},ExpressionUUID->"c85922de-6553-4190-9464-\
19690ae4ad3d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"groupedVertices", " ", "=", " ", 
   RowBox[{"DisconnectGraph", "[", 
    RowBox[{"graphData", ",", "\"\<Vertices\>\""}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.704537575619267*^9, 3.704537588701571*^9}, 
   3.704642714426086*^9},ExpressionUUID->"5682e1fb-b0fb-4510-a398-\
9af6c228ba95"],

Cell[BoxData[
 RowBox[{"ManipulateMetaEdge", "[", 
  RowBox[{"graphData", ",", "groupedVertices"}], "]"}]], "Input",
 CellChangeTimes->{{3.704536402442026*^9, 3.704536424686092*^9}, {
  3.704536484717041*^9, 3.704536486006235*^9}, {3.7045365286082478`*^9, 
  3.704536538851913*^9}, {3.7045376025469007`*^9, 
  3.704537604456905*^9}},ExpressionUUID->"54c6f21c-2fd6-4088-a9bf-\
09d59b9dd99b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"resDeleteEdge11", "=", 
   RowBox[{"DeleteEdge", "[", 
    RowBox[{"graphData", ",", 
     RowBox[{
     "groupedEdges", "\[LeftDoubleBracket]", "11", 
      "\[RightDoubleBracket]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.704459820242243*^9, 3.704459852613546*^9}, {
   3.7044599654457293`*^9, 3.704459971760207*^9}, {3.7044600153362207`*^9, 
   3.704460029150549*^9}, {3.704477016509234*^9, 3.7044770168693323`*^9}, {
   3.704534950107876*^9, 3.704534951472155*^9}, {3.7045350368994083`*^9, 
   3.704535039599461*^9}, 
   3.70464272263155*^9},ExpressionUUID->"2fdae4dd-fed2-4309-84af-\
955a34ee5306"],

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"VisualizeRootGraphics3D", "[", 
     RowBox[{"vertices", ",", " ", 
      RowBox[{"GraphConvert", "@", "resDeleteEdge11"}], ",", " ", "Red"}], 
     "]"}], ",", "loopGraphics"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.704460307495501*^9, 3.7044603541761436`*^9}, {
   3.704535047009376*^9, 3.704535053954237*^9}, {3.704542425681963*^9, 
   3.704542475722053*^9}, 
   3.7045584694752007`*^9},ExpressionUUID->"dea75935-c065-4c6a-8ec4-\
d3b095de9dc4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Task 4: Duplicate Edge", "Subsection",
 CellChangeTimes->{{3.7051542930811853`*^9, 
  3.70515431026031*^9}},ExpressionUUID->"309b46e2-dcdb-40e0-b162-\
445637c84787"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"newVertices", ",", " ", "newEdges", ",", " ", 
    RowBox[{"{", 
     RowBox[{"newThickness", ",", " ", "newWidth", ",", " ", "newLength"}], 
     "}"}]}], "}"}], "=", 
  RowBox[{"DuplicateEdge", "[", 
   RowBox[{"10", ",", 
    RowBox[{"{", 
     RowBox[{"vertices", ",", "edges", ",", 
      RowBox[{"{", 
       RowBox[{"thickness", ",", "width", ",", "length"}], "}"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.705024463777521*^9, 3.705024529948584*^9}, {
  3.7051425759589148`*^9, 3.7051425765993023`*^9}, {3.705145216618441*^9, 
  3.7051452247633553`*^9}},ExpressionUUID->"f274d4fe-55c5-4ac7-bdd9-\
4fe89c22c50e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"newLoopEdges", "=", 
   RowBox[{"ExtractInfiniteEdges", "[", 
    RowBox[{"newEdges", ",", " ", "newLength"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"newLoopGraph", "=", 
   RowBox[{"MapThread", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#1", "\[UndirectedEdge]", "#2"}], "&"}], ",", 
     RowBox[{"Transpose", "@", "newLoopEdges"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Graph", "@", "graphData"}], ",", 
    RowBox[{"Graph", "[", "newLoopGraph", "]"}]}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7051543566011143`*^9, 3.705154386784141*^9}, 
   3.7051544238217916`*^9},ExpressionUUID->"a8ecf917-51c7-4651-b7f7-\
d95696508338"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Task 5: Connect Edge", "Subsection",
 CellChangeTimes->{{3.7051544518219137`*^9, 
  3.705154462892037*^9}},ExpressionUUID->"f662ef1e-ceb9-4d6d-b13f-\
f3b2dd299747"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"whole", "=", 
   RowBox[{"MapThread", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#1", "\[UndirectedEdge]", "#2"}], "&"}], ",", 
     RowBox[{"Transpose", "@", "edges"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wholeGraph", "=", 
   RowBox[{"Graph", "@", "whole"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"indices", "=", 
   RowBox[{"Last", "@", 
    RowBox[{"ConnectedComponents", "[", "wholeGraph", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ShowIntersectionPointByIndex", "[", 
  RowBox[{"all", ",", "indices", ",", "vertices", ",", "edges"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.705154518761181*^9, 3.705154521370175*^9}, {
  3.705154604520598*^9, 
  3.7051546049032097`*^9}},ExpressionUUID->"b3869c17-9959-462a-a871-\
7206ecfe077a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"edgePos", "=", 
   RowBox[{"SelectVerticesWithDegree", "[", 
    RowBox[{"edges", ",", "1", ",", "\"\<Edge Position\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ShowIntersectionPointByIndex", "[", 
  RowBox[{"all", ",", "edgePos", ",", " ", "vertices", ",", "edges"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.705154571299251*^9, 
  3.7051545776547527`*^9}},ExpressionUUID->"2ef95abe-9a3b-4e28-af6a-\
0bc7a7c6adf4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pairsIsolatedPart", "=", 
   RowBox[{"SelectDisconnectedPart", "[", 
    RowBox[{"edges", ",", " ", "\"\<PairMetaEdge\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"partEndPtsID", "=", 
  RowBox[{"SelectEndPoints", "[", 
   RowBox[{"pairsIsolatedPart", ",", "\"\<ID\>\""}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.70515500016601*^9, 3.705155023925355*^9}, {
  3.705155066205085*^9, 
  3.705155066563673*^9}},ExpressionUUID->"cd82be48-303e-437d-a1a4-\
199a960025c5"],

Cell["Find Two ID to connect ", "Text",
 CellChangeTimes->{{3.705155654170896*^9, 
  3.705155660425404*^9}},ExpressionUUID->"9bea73cb-8241-473e-aeba-\
33a9b00da65b"],

Cell[BoxData[
 RowBox[{"FindConnectionVerticesID", "[", 
  RowBox[{"pairsIsolatedPart", ",", "vertices", ",", "edges"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.70515496662241*^9, 3.705154971151744*^9}, {
  3.7051553252844677`*^9, 
  3.705155334024662*^9}},ExpressionUUID->"93954d37-5c07-48c1-acd9-\
d55466eba8ba"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"cEdges", ",", " ", 
    RowBox[{"{", 
     RowBox[{"cThickness", ",", " ", "cWidth", ",", " ", "cLength"}], "}"}]}],
    "}"}], "=", 
  RowBox[{"ConnectEdge", "[", 
   RowBox[{"520", ",", "2257", ",", 
    RowBox[{"{", 
     RowBox[{"edges", ",", 
      RowBox[{"{", 
       RowBox[{"thickness", ",", "width", ",", "length"}], "}"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7048071725792217`*^9, 3.704807224589448*^9}, {
  3.704807882380208*^9, 3.70480789673468*^9}, {3.705155909752392*^9, 
  3.705155924826714*^9}},ExpressionUUID->"b9933bb6-995b-4bc3-bd62-\
70b9f35d99d6"],

Cell[BoxData[
 RowBox[{"VisualizeRootGraphics3D", "[", 
  RowBox[{"vertices", ",", "cEdges", ",", 
   RowBox[{"Darker", "@", "Blue"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7048078678084087`*^9, 3.704807870749371*^9}, {
  3.7048079060500174`*^9, 3.7048079367845*^9}, {3.70515620995163*^9, 
  3.7051562112554893`*^9}, {3.705157885045162*^9, 
  3.7051578858303013`*^9}},ExpressionUUID->"7b3dde81-bf29-4be5-8d7e-\
92eee29f8fba"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1002, 1260},
WindowMargins->{{233, Automatic}, {Automatic, 5}},
Magnification:>1.5 Inherited,
FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 18, \
2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 151, 3, 137, "Title", "ExpressionUUID" -> \
"50ea6d7e-d956-4d6f-98a4-1541bb968573"],
Cell[CellGroupData[{
Cell[756, 29, 151, 3, 96, "Section", "ExpressionUUID" -> \
"e6b06139-71a3-4ef8-b3aa-7e34363df7c1"],
Cell[910, 34, 544, 14, 81, "Input", "ExpressionUUID" -> \
"81287a06-bd8d-4962-a190-33c6b7c077b3"],
Cell[1457, 50, 694, 18, 112, "Input", "ExpressionUUID" -> \
"0e94fe85-83a1-415f-a7bc-e4b8b4f17125"],
Cell[2154, 70, 765, 19, 112, "Input", "ExpressionUUID" -> \
"2b00eb5f-8b00-438e-aed6-884da4a6ae52"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2956, 94, 156, 3, 96, "Section", "ExpressionUUID" -> \
"55eb9f73-2ee6-4988-b670-0b83361f9f23"],
Cell[CellGroupData[{
Cell[3137, 101, 214, 4, 65, "Subsection", "ExpressionUUID" -> \
"a66f55d0-9833-4028-8c6d-771b79353658"],
Cell[3354, 107, 468, 9, 49, "Input", "ExpressionUUID" -> \
"806ffbd7-d19f-47e9-8ce4-489133db7251"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3859, 121, 183, 3, 65, "Subsection", "ExpressionUUID" -> \
"7a6a749c-7554-4c74-83cc-687d08328879"],
Cell[4045, 126, 398, 8, 49, "Input", "ExpressionUUID" -> \
"203ca6ca-a04c-4cc6-993a-d4b30c2657e3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4480, 139, 169, 3, 65, "Subsection", "ExpressionUUID" -> \
"f4f24648-651a-4279-972a-5e261003c465"],
Cell[4652, 144, 341, 8, 49, "Input", "ExpressionUUID" -> \
"7445c4ac-fc2e-4b47-ab20-0098065dc28b"],
Cell[4996, 154, 777, 19, 112, "Input", "ExpressionUUID" -> \
"05c4f9c7-1e70-485d-84e8-3bb36caa8471"],
Cell[5776, 175, 2078, 52, 329, "Input", "ExpressionUUID" -> \
"bd1294c4-36a4-46d6-a785-61beab1f93c5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7891, 232, 217, 4, 65, "Subsection", "ExpressionUUID" -> \
"9c3835b4-87a7-42d5-a7d7-03660544f209"],
Cell[8111, 238, 371, 10, 49, "Input", "ExpressionUUID" -> \
"a33873d2-e3f1-42ce-a9da-11959bf5d9b3"],
Cell[8485, 250, 250, 5, 49, "Input", "ExpressionUUID" -> \
"7239feed-9793-4950-b701-db5a1f70c9e3"],
Cell[8738, 257, 239, 5, 49, "Input", "ExpressionUUID" -> \
"4bb15a54-221f-4edc-b8d0-68f2f75887ff"],
Cell[8980, 264, 298, 7, 81, "Input", "ExpressionUUID" -> \
"c3afd79b-2f87-45fc-aae4-923f93f0fb4b"],
Cell[9281, 273, 551, 14, 81, "Input", "ExpressionUUID" -> \
"65572597-8f4b-476a-b162-c3e55ce90bda"],
Cell[9835, 289, 364, 8, 49, "Input", "ExpressionUUID" -> \
"e524e464-ac5e-45e6-a24b-0a2496925ece"],
Cell[10202, 299, 224, 5, 49, "Input", "ExpressionUUID" -> \
"c85922de-6553-4190-9464-19690ae4ad3d"],
Cell[10429, 306, 331, 7, 49, "Input", "ExpressionUUID" -> \
"5682e1fb-b0fb-4510-a398-9af6c228ba95"],
Cell[10763, 315, 390, 7, 49, "Input", "ExpressionUUID" -> \
"54c6f21c-2fd6-4088-a9bf-09d59b9dd99b"],
Cell[11156, 324, 649, 14, 49, "Input", "ExpressionUUID" -> \
"2fdae4dd-fed2-4309-84af-955a34ee5306"],
Cell[11808, 340, 540, 12, 112, "Input", "ExpressionUUID" -> \
"dea75935-c065-4c6a-8ec4-d3b095de9dc4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12385, 357, 171, 3, 65, "Subsection", "ExpressionUUID" -> \
"309b46e2-dcdb-40e0-b162-445637c84787"],
Cell[12559, 362, 686, 17, 81, "Input", "ExpressionUUID" -> \
"f274d4fe-55c5-4ac7-bdd9-4fe89c22c50e"],
Cell[13248, 381, 778, 21, 112, "Input", "ExpressionUUID" -> \
"a8ecf917-51c7-4651-b7f7-d95696508338"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14063, 407, 170, 3, 65, "Subsection", "ExpressionUUID" -> \
"f662ef1e-ceb9-4d6d-b13f-f3b2dd299747"],
Cell[14236, 412, 836, 23, 143, "Input", "ExpressionUUID" -> \
"b3869c17-9959-462a-a871-7206ecfe077a"],
Cell[15075, 437, 469, 11, 81, "Input", "ExpressionUUID" -> \
"2ef95abe-9a3b-4e28-af6a-0bc7a7c6adf4"],
Cell[15547, 450, 517, 12, 81, "Input", "ExpressionUUID" -> \
"cd82be48-303e-437d-a1a4-199a960025c5"],
Cell[16067, 464, 165, 3, 47, "Text", "ExpressionUUID" -> \
"9bea73cb-8241-473e-aeba-33a9b00da65b"],
Cell[16235, 469, 316, 7, 49, "Input", "ExpressionUUID" -> \
"93954d37-5c07-48c1-acd9-d55466eba8ba"],
Cell[16554, 478, 641, 17, 81, "Input", "ExpressionUUID" -> \
"b9933bb6-995b-4bc3-bd62-70b9f35d99d6"],
Cell[17198, 497, 428, 8, 49, "Input", "ExpressionUUID" -> \
"7b3dde81-bf29-4be5-8d7e-92eee29f8fba"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)