(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 365288, 8525] NotebookOptionsPosition[ 363499, 8464] NotebookOutlinePosition[ 363842, 8479] CellTagsIndexPosition[ 363799, 8476] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[StyleBox["Before executing any of the code below, create a new \ folder and place into it all the relevant text files from \n \ http://depts.washington.edu/kerrpost/Public/RifRampCode\nWrite the full path \ in the assignment below and execute it:", Background->RGBColor[1, 1, 0]]], "Text", CellChangeTimes->{{3.556150960151405*^9, 3.5561511244908047`*^9}, { 3.556151158204733*^9, 3.5561511600828404`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wd", "=", "\"\\""}], ";"}]], "Input", CellChangeTimes->{{3.5561511124931183`*^9, 3.556151120754591*^9}, { 3.5561511676722746`*^9, 3.556151198815056*^9}, {3.5561514181075983`*^9, 3.5561514185686245`*^9}}], Cell[CellGroupData[{ Cell["Basic Landscape Slice Function (3D)", "Section", CellChangeTimes->{{3.546890806999791*^9, 3.546890817581396*^9}, { 3.5494206864271603`*^9, 3.549420700425912*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LandscapeSlice", "[", RowBox[{ RowBox[{"{", RowBox[{"base00x_", ",", "base00y_", ",", "base00z_"}], "}"}], ",", RowBox[{"{", RowBox[{"radius_", ",", "height_"}], "}"}], ",", RowBox[{"{", RowBox[{ "opacity00_", ",", "opacity10_", ",", "opacity01_", ",", "opacity11_"}], "}"}], ",", RowBox[{"{", RowBox[{ "highlight00_", ",", "highlight10_", ",", "highlight01_", ",", "highlight11_"}], "}"}], ",", RowBox[{"{", RowBox[{ "edge0010_", ",", "edge0001_", ",", "edge1011_", ",", "edge0111_"}], "}"}], ",", RowBox[{"{", RowBox[{ "opacity0010_", ",", "opacity0001_", ",", "opacity1011_", ",", "opacity0111_"}], "}"}], ",", RowBox[{"{", RowBox[{ "highlight0010_", ",", "highlight0001_", ",", "highlight1011_", ",", "highlight0111_"}], "}"}], ",", RowBox[{"{", RowBox[{"highlightOpac_", ",", "highlightEpi_"}], "}"}], ",", RowBox[{"{", RowBox[{"arrowlength_", ",", "arrowdelta_", ",", "inc_"}], "}"}], ",", RowBox[{"{", RowBox[{"vx_", ",", "vy_", ",", "vz_"}], "}"}], ",", RowBox[{"{", "linewd_", "}"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{"highlight00", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Opacity", "[", "opacity00", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity00", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Opacity", "[", "highlightOpac", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}], ",", RowBox[{"radius", "+", "highlightEpi"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Opacity", "[", "opacity00", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity00", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"highlight10", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"CMYKColor", "[", RowBox[{"0.8837", ",", ".7692", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity10", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity10", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Opacity", "[", "highlightOpac", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}], ",", RowBox[{"radius", "+", "highlightEpi"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"CMYKColor", "[", RowBox[{"0.8837", ",", ".7692", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity10", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity10", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"highlight0010", ",", "Yellow", ",", "White"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity0010", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity0010", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", "base00z"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"Opacity", "[", "opacity0010", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "+", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", "i", "\[LessEqual]", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "+", "radius"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", " ", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], "<", RowBox[{"base00x", "+", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"base00x", "+", "radius", "-", "arrowlength", "+", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0010", ">", "0"}], ",", "inc", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0010", "<", "0"}], ",", RowBox[{"-", "inc"}], ",", "0"}], "]"}]}], "]"}]}], ",", RowBox[{"base00x", "+", "1", "-", "radius", "+", "arrowlength"}], ",", "arrowdelta"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"highlight01", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"CMYKColor", "[", RowBox[{"0.8631", ",", ".1957", ",", "1", ",", ".0771"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity01", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity01", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1"}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Opacity", "[", "highlightOpac", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1"}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}], ",", RowBox[{"radius", "+", "highlightEpi"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"CMYKColor", "[", RowBox[{"0.8631", ",", ".1957", ",", "1", ",", ".0771"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity01", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity01", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1"}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"highlight0001", ",", "Yellow", ",", "White"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity0001", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity0001", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "radius"}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", "base00z"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity0001", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00y", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00y", "+", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}], ">", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00y", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"base00y", "+", "radius"}], "\[LessEqual]", "i", "\[LessEqual]", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", "i", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00y", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00y", "+", "radius"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00y", "+", "radius"}], "\[LessEqual]", " ", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", " ", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00y", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], "<", RowBox[{"base00y", "+", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", "i", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00y", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ">", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", "i", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00y", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"base00y", "+", "radius", "-", "arrowlength", "+", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0001", ">", "0"}], ",", "inc", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0001", "<", "0"}], ",", RowBox[{"-", "inc"}], ",", "0"}], "]"}]}], "]"}]}], ",", RowBox[{"base00x", "+", "1", "-", "radius", "+", "arrowlength"}], ",", "arrowdelta"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"highlight11", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"CMYKColor", "[", RowBox[{"0", ",", ".994", ",", "1", ",", "0"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity11", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity11", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1"}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Opacity", "[", "highlightOpac", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1"}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}], ",", RowBox[{"radius", "+", "highlightEpi"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"CMYKColor", "[", RowBox[{"0", ",", ".994", ",", "1", ",", "0"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity11", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity11", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1"}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"highlight1011", ",", "Yellow", ",", "White"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity1011", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity1011", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "radius"}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", "base00z"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity1011", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00y", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00y", "+", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}], ">", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00y", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"base00y", "+", "radius"}], "\[LessEqual]", "i", "\[LessEqual]", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "i", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00y", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00y", "+", "radius"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00y", "+", "radius"}], "\[LessEqual]", " ", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", " ", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00y", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], "<", RowBox[{"base00y", "+", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "i", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00y", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ">", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "i", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00y", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00y", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", RowBox[{"base00y", "+", "1", "-", "radius"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00y", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"base00y", "+", "radius", "-", "arrowlength", "+", RowBox[{"If", "[", RowBox[{ RowBox[{"edge1011", ">", "0"}], ",", "inc", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"edge1011", "<", "0"}], ",", RowBox[{"-", "inc"}], ",", "0"}], "]"}]}], "]"}]}], ",", RowBox[{"base00x", "+", "1", "-", "radius", "+", "arrowlength"}], ",", "arrowdelta"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"highlight0111", ",", "Yellow", ",", "White"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity0111", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity0111", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", "base00z"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity0111", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "+", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}], ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", "i", "\[LessEqual]", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ",", RowBox[{"base00y", "+", "1"}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "+", "radius"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ",", RowBox[{"base00y", "+", "1"}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", " ", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ",", RowBox[{"base00y", "+", "1"}], ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], "<", RowBox[{"base00x", "+", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", RowBox[{"base00y", "+", "1"}], ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"base00x", "+", "radius", "-", "arrowlength", "+", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0111", ">", "0"}], ",", "inc", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0111", "<", "0"}], ",", RowBox[{"-", "inc"}], ",", "0"}], "]"}]}], "]"}]}], ",", RowBox[{"base00x", "+", "1", "-", "radius", "+", "arrowlength"}], ",", "arrowdelta"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"ViewVector", "\[Rule]", RowBox[{"{", RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}]}], ",", RowBox[{"Lighting", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"\"\\"", ",", "White"}], "}"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.539826343326541*^9, 3.5398264082986555`*^9}, { 3.539826442197253*^9, 3.539826468523573*^9}, {3.539827380799739*^9, 3.539827477653538*^9}, {3.539827565995783*^9, 3.539827592862144*^9}, 3.5398276953992715`*^9, {3.539827964104556*^9, 3.539827975066025*^9}, { 3.5398291343096848`*^9, 3.539829160068488*^9}, {3.539841360569379*^9, 3.539841398601386*^9}, 3.53984152978064*^9, {3.5398415634645133`*^9, 3.5398416049376183`*^9}, {3.5398419128359766`*^9, 3.539842000933092*^9}, { 3.5398420789190626`*^9, 3.5398421391888514`*^9}, {3.5398422866084065`*^9, 3.5398423045721765`*^9}, 3.539843216545788*^9, {3.5398434259809766`*^9, 3.5398434296091657`*^9}, {3.5398435921372705`*^9, 3.539843645176795*^9}, { 3.539843720857552*^9, 3.539843866515555*^9}, {3.5398438967870245`*^9, 3.5398439086216383`*^9}, {3.5398439656042366`*^9, 3.5398439788008533`*^9}, 3.5398441759209843`*^9, {3.5398443287276154`*^9, 3.539844331966798*^9}, { 3.539844390133644*^9, 3.5398444020911713`*^9}, {3.53984460500229*^9, 3.539844662930278*^9}, 3.53984491437119*^9, {3.5398450881715264`*^9, 3.5398450903596287`*^9}, {3.539845137502119*^9, 3.5398452031144223`*^9}, { 3.539845414494939*^9, 3.53984541951517*^9}, {3.5398454950049095`*^9, 3.5398455540816493`*^9}, {3.539845636313691*^9, 3.5398456582676716`*^9}, { 3.5398457670359125`*^9, 3.53984578980208*^9}, {3.539845965098551*^9, 3.539845983025531*^9}, 3.539846147310832*^9, {3.5398463741562595`*^9, 3.539846397361375*^9}, {3.5398464972591443`*^9, 3.5398465549271936`*^9}, { 3.5398465977125235`*^9, 3.539846605987977*^9}, {3.539846804110732*^9, 3.539846829207923*^9}, {3.539847055166007*^9, 3.5398470694797344`*^9}, 3.5398473356513157`*^9, 3.539847368022728*^9, {3.539847398877906*^9, 3.5398476210405493`*^9}, {3.5398476766923847`*^9, 3.5398477179397078`*^9}, 3.5398477944943695`*^9, {3.539847837314599*^9, 3.5398479003238564`*^9}, { 3.5398479559265594`*^9, 3.539847958163687*^9}, {3.5398480187754803`*^9, 3.539848020918598*^9}, 3.5398480543318105`*^9, {3.539848184385484*^9, 3.5398481929448986`*^9}, {3.5398486907824883`*^9, 3.5398487451153917`*^9}, {3.5398489722732553`*^9, 3.5398490241706166`*^9}, 3.539849084376522*^9, {3.5398493027465305`*^9, 3.5398493098058705`*^9}, { 3.5398494693944445`*^9, 3.539849632953545*^9}, {3.5398500614357233`*^9, 3.5398501052607455`*^9}, {3.5398501968041434`*^9, 3.5398502855087814`*^9}, {3.539850320980321*^9, 3.539850368004526*^9}, { 3.5398504057642574`*^9, 3.539850511859265*^9}, {3.5398506474951677`*^9, 3.5398506481612053`*^9}, {3.53985068727992*^9, 3.5398508432469544`*^9}, { 3.539850980643852*^9, 3.539851061806635*^9}, {3.539851362254792*^9, 3.5398514235205927`*^9}, {3.5398515756841497`*^9, 3.539851603477475*^9}, { 3.539851734905328*^9, 3.5398517733501687`*^9}, {3.539851890142121*^9, 3.539851997972292*^9}, 3.539852151161056*^9, {3.5398525017694654`*^9, 3.5398525612382975`*^9}, 3.5398525938428793`*^9, {3.539852809761366*^9, 3.5398528112464495`*^9}, {3.5398530386095843`*^9, 3.539853040061612*^9}, { 3.539853197536047*^9, 3.5398532195631714`*^9}, {3.5398534751108236`*^9, 3.5398534759068694`*^9}, {3.5398536663216023`*^9, 3.539853666568611*^9}, { 3.5398756973559656`*^9, 3.539875744427393*^9}, {3.539875786052579*^9, 3.5398758116568513`*^9}, 3.5398758810888653`*^9, {3.5398759652877684`*^9, 3.5398760120221653`*^9}, {3.539876588644349*^9, 3.5398765941925745`*^9}, { 3.539876636546693*^9, 3.539876638251791*^9}, {3.5398766774957075`*^9, 3.5398767094843073`*^9}, {3.5398767494553614`*^9, 3.53987693431732*^9}, { 3.539876995188485*^9, 3.539877161315193*^9}, {3.5398776926871758`*^9, 3.5398780220572634`*^9}, 3.539878118772956*^9, 3.539878292792978*^9, 3.539878379538043*^9, {3.5398786955544553`*^9, 3.5398786969195232`*^9}, 3.539878794835466*^9, {3.5398814175788107`*^9, 3.539881418448812*^9}, { 3.539882479291668*^9, 3.5398824868390455`*^9}, {3.5398825294672546`*^9, 3.539882531178321*^9}, {3.5398827676416254`*^9, 3.539882795831915*^9}, { 3.5398829207027297`*^9, 3.5398831357113037`*^9}, {3.539883636481145*^9, 3.539883639975334*^9}, {3.5398836873197603`*^9, 3.5398836906639495`*^9}, { 3.539883732967064*^9, 3.539883887135807*^9}, {3.5398843542477922`*^9, 3.539884458068198*^9}, {3.5398845205829315`*^9, 3.539884522405034*^9}, { 3.539885115192564*^9, 3.539885168453141*^9}, {3.539885199205654*^9, 3.539885239700736*^9}, {3.5398865267212086`*^9, 3.539886530416336*^9}, { 3.5398865695371895`*^9, 3.5398866330746293`*^9}, {3.5398866761058335`*^9, 3.5398867397402563`*^9}, {3.539886810330738*^9, 3.5398868236254034`*^9}, { 3.5398868965700884`*^9, 3.5398869567901506`*^9}, {3.5398871556924505`*^9, 3.5398871562844687`*^9}, {3.5401731682643147`*^9, 3.5401731724825563`*^9}, {3.5468649039283*^9, 3.5468649042603188`*^9}, { 3.5468655683653035`*^9, 3.5468655978239884`*^9}, {3.546865658783475*^9, 3.546865660658582*^9}, {3.5468657881608753`*^9, 3.5468657889329195`*^9}, { 3.546867508386266*^9, 3.54686754796353*^9}, {3.5469073305798855`*^9, 3.546907331967965*^9}, {3.5469074069932566`*^9, 3.5469074367729597`*^9}, { 3.54690748537774*^9, 3.546907546634243*^9}, {3.546907581447234*^9, 3.546907706446384*^9}, {3.5469078340086803`*^9, 3.5469078368438425`*^9}, { 3.5469078831074886`*^9, 3.54690793471244*^9}, {3.546907984631295*^9, 3.546907996035948*^9}, {3.546910045163151*^9, 3.5469100778380203`*^9}, { 3.5469105386893787`*^9, 3.546910604498143*^9}, {3.546910723655958*^9, 3.5469108552604856`*^9}, 3.5469108975629053`*^9, 3.546911328685564*^9, { 3.546911454789777*^9, 3.5469114678305225`*^9}, {3.5469115917826123`*^9, 3.5469116418364754`*^9}, {3.5469117126305246`*^9, 3.5469117624583745`*^9}, {3.5469118023666573`*^9, 3.546911812482236*^9}, { 3.5469119504811287`*^9, 3.546911967661112*^9}, {3.5469120217272043`*^9, 3.5469120250923967`*^9}, {3.5469120784234467`*^9, 3.5469120943953605`*^9}, {3.5469122059097385`*^9, 3.5469122154722853`*^9}, {3.5469123685170393`*^9, 3.5469123945865307`*^9}, {3.546912441540216*^9, 3.5469124761501956`*^9}, { 3.54691254650622*^9, 3.5469125847774086`*^9}, {3.546912634155233*^9, 3.546912670039285*^9}, {3.546912798697644*^9, 3.5469128155226064`*^9}, { 3.5469128589830923`*^9, 3.5469128850565834`*^9}, 3.5493342774199*^9, { 3.5494170414522448`*^9, 3.549417070910551*^9}, {3.5494178715989256`*^9, 3.5494178719339447`*^9}, {3.5543078770372543`*^9, 3.5543078879988813`*^9}, {3.5543080050795774`*^9, 3.554308135775053*^9}, { 3.5543082722988615`*^9, 3.554308320982646*^9}, {3.5543083659542184`*^9, 3.5543083708735*^9}, {3.5543084836049476`*^9, 3.554308498234784*^9}, { 3.554308598783536*^9, 3.5543087265588436`*^9}, {3.55430878891341*^9, 3.5543088474327574`*^9}, {3.5543088877770653`*^9, 3.5543091147870493`*^9}, 3.5543094802049503`*^9, 3.554309523236411*^9, {3.55568937316984*^9, 3.5556893734763412`*^9}, {3.5556899511923943`*^9, 3.555689951473195*^9}, { 3.55569000801332*^9, 3.55569000827332*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 3b Slices", "Section", CellChangeTimes->{{3.546890806999791*^9, 3.546890817581396*^9}, 3.549420764810203*^9}], Cell[BoxData[ RowBox[{"LandscapeSlice", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.9", ",", "1.5", ",", "1.1"}], "}"}], ",", RowBox[{"{", ".002", "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.5494167137821283`*^9, {3.5494167847059917`*^9, 3.5494168169197764`*^9}, { 3.549416859913966*^9, 3.5494168881039753`*^9}, {3.549417269876743*^9, 3.549417291440734*^9}, 3.54941791364114*^9, {3.5543082024238653`*^9, 3.554308222040987*^9}, {3.5543085188959665`*^9, 3.5543085191209793`*^9}, { 3.554309129973918*^9, 3.5543091303129373`*^9}, 3.55569004753549*^9}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"LandscapeSlice", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.9", ",", "1.5", ",", "1.1"}], "}"}], ",", RowBox[{"{", "0.002", "}"}]}], "]"}], ",", RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5468639982905*^9, 3.546864113529092*^9}, { 3.546864159883743*^9, 3.5468641600147505`*^9}, {3.546864240066329*^9, 3.546864265328774*^9}, {3.54686442086267*^9, 3.5468644345514526`*^9}, { 3.5468644654722214`*^9, 3.546864473506681*^9}, {3.5468645133739614`*^9, 3.546864538515399*^9}, {3.546864912002762*^9, 3.5468649169170427`*^9}, { 3.5468650033149843`*^9, 3.5468650601582355`*^9}, {3.546865427689257*^9, 3.5468654287413173`*^9}, {3.546865897899152*^9, 3.5468658994722414`*^9}, { 3.5468659300869927`*^9, 3.546865942905726*^9}, {3.546867377478779*^9, 3.546867377756795*^9}, {3.546867553612853*^9, 3.5468676595859146`*^9}, { 3.5468676953639607`*^9, 3.546867799824936*^9}, {3.546867856674187*^9, 3.5468678644536324`*^9}, {3.5468906223432293`*^9, 3.54689064648761*^9}, 3.546891796757402*^9, 3.5493343458260202`*^9, 3.54933447863428*^9, { 3.549334530070571*^9, 3.549334542316592*^9}, {3.549417343460393*^9, 3.5494173474706182`*^9}, 3.5494179296970215`*^9, {3.5536165150662017`*^9, 3.5536165155012264`*^9}, {3.5536166791415863`*^9, 3.5536166793085957`*^9}, {3.55361750758197*^9, 3.553617507892988*^9}, { 3.5536178578680053`*^9, 3.5536178594930983`*^9}, {3.55361816304046*^9, 3.553618163459484*^9}, {3.5536190282209454`*^9, 3.5536190543524404`*^9}, { 3.5537746062260513`*^9, 3.5537746398679757`*^9}, {3.554152075207632*^9, 3.554152075552652*^9}, 3.5543067354519587`*^9, {3.554307212647253*^9, 3.554307212735258*^9}, {3.554307410960596*^9, 3.554307421402193*^9}, { 3.5543076684883256`*^9, 3.554307672009527*^9}, 3.5543077431925983`*^9, { 3.554309137983376*^9, 3.5543091451077833`*^9}, 3.55430952933776*^9, { 3.554310093387022*^9, 3.554310094385079*^9}, {3.5543110001678867`*^9, 3.55431101333064*^9}, {3.554311117282585*^9, 3.5543111205707736`*^9}, { 3.554311204866595*^9, 3.5543112118899965`*^9}, 3.554311338737252*^9, { 3.554311747714644*^9, 3.5543117485856943`*^9}, {3.5543120659068437`*^9, 3.5543120766464577`*^9}, {3.5543123503631134`*^9, 3.5543123816259017`*^9}, {3.5543126099869633`*^9, 3.5543126102339773`*^9}, 3.555690056081904*^9}], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"LandscapeSlice", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.9", ",", "1.5", ",", "1.1"}], "}"}], ",", RowBox[{"{", "0.002", "}"}]}], "]"}], ",", RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.5468907071950827`*^9, 3.5468907132234273`*^9}, 3.546891791761116*^9, 3.549334350646429*^9, 3.549334549976206*^9, { 3.5493345998806934`*^9, 3.549334634383354*^9}, 3.549334784717657*^9, 3.549417354337947*^9, 3.5494179311941013`*^9, {3.553616521300558*^9, 3.5536165215875745`*^9}, 3.5541511427683*^9, {3.5541520207815194`*^9, 3.5541520216875715`*^9}, {3.5541520597047453`*^9, 3.554152061863869*^9}, 3.554306737074052*^9, {3.554307215361408*^9, 3.554307215473415*^9}, { 3.554307412969711*^9, 3.55430741907206*^9}, {3.554309655897999*^9, 3.554309656330024*^9}, 3.5543097126972475`*^9, {3.5543126156742887`*^9, 3.554312616713348*^9}, {3.55431304108362*^9, 3.5543130414976444`*^9}, 3.555690062899116*^9}], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"LandscapeSlice", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.9", ",", "1.5", ",", "1.1"}], "}"}], ",", RowBox[{"{", "0.002", "}"}]}], "]"}], ",", RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}]], "Input", CellChangeTimes->{ 3.54689070383389*^9, {3.5468907705327053`*^9, 3.546890786544621*^9}, 3.546891785502758*^9, 3.5493343541720347`*^9, 3.549334553579812*^9, { 3.5493346536961884`*^9, 3.549334665552209*^9}, {3.549334768762991*^9, 3.5493347875818214`*^9}, 3.549417357281115*^9, 3.5494179321921587`*^9, { 3.5536165268528757`*^9, 3.5536165276689224`*^9}, 3.5541511452224407`*^9, { 3.554152032249175*^9, 3.5541520340762796`*^9}, {3.5541520690002775`*^9, 3.5541520696243134`*^9}, 3.554306738216117*^9, {3.554307218625595*^9, 3.5543072187125998`*^9}, {3.554307414929823*^9, 3.554307416776929*^9}, { 3.5543096645014915`*^9, 3.554309665202531*^9}, 3.554309714611357*^9, { 3.554312620840584*^9, 3.5543126218896437`*^9}, {3.554313045337864*^9, 3.5543130457148857`*^9}, 3.5556900659879217`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Landscape Slice Function (2D version)", "Section", CellChangeTimes->{{3.546890806999791*^9, 3.546890817581396*^9}, { 3.5494207478983593`*^9, 3.549420756809826*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"LandscapeSlice2D", "[", RowBox[{ RowBox[{"{", RowBox[{"base00x_", ",", "base00y_", ",", "base00z_"}], "}"}], ",", RowBox[{"{", RowBox[{"radius_", ",", "height_", ",", "nslicesbelow_"}], "}"}], ",", RowBox[{"{", RowBox[{ "opacity00_", ",", "opacity10_", ",", "opacity01_", ",", "opacity11_"}], "}"}], ",", RowBox[{"{", RowBox[{ "highlight00_", ",", "highlight10_", ",", "highlight01_", ",", "highlight11_"}], "}"}], ",", RowBox[{"{", RowBox[{"viab00_", ",", "viab10_", ",", "viab01_", ",", "viab11_"}], "}"}], ",", RowBox[{"{", RowBox[{ "edge0010_", ",", "edge0001_", ",", "edge1011_", ",", "edge0111_"}], "}"}], ",", RowBox[{"{", RowBox[{ "opacity0010_", ",", "opacity0001_", ",", "opacity1011_", ",", "opacity0111_"}], "}"}], ",", RowBox[{"{", RowBox[{ "highlight0010_", ",", "highlight0001_", ",", "highlight1011_", ",", "highlight0111_"}], "}"}], ",", RowBox[{"{", RowBox[{ "viab0010_", ",", "viab0001_", ",", "viab1011_", ",", "viab0111_"}], "}"}], ",", RowBox[{"{", RowBox[{"highlightOpac_", ",", "highlightEpi_"}], "}"}], ",", RowBox[{"{", RowBox[{"arrowlength_", ",", "arrowdelta_", ",", "inc_"}], "}"}], ",", RowBox[{"{", RowBox[{"vx_", ",", "vy_", ",", "vz_"}], "}"}], ",", RowBox[{"{", "linewd_", "}"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{"highlight00", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab00", ",", "Black", ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity00", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity00", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Opacity", "[", "highlightOpac", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}], ",", RowBox[{"radius", "+", "highlightEpi"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab00", ",", "Black", ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity00", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity00", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"highlight10", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab10", ",", RowBox[{"CMYKColor", "[", RowBox[{"0.8631", ",", ".1957", ",", "1", ",", ".0771"}], "]"}], ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity10", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity10", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Opacity", "[", "highlightOpac", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}], ",", RowBox[{"radius", "+", "highlightEpi"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab10", ",", RowBox[{"CMYKColor", "[", RowBox[{"0.8631", ",", ".1957", ",", "1", ",", ".0771"}], "]"}], ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity10", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity10", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"highlight0010", ",", "Yellow", ",", RowBox[{"If", "[", RowBox[{"viab0010", ",", "White", ",", "LightGray"}], "]"}]}], "]"}], ",", RowBox[{"Opacity", "[", "opacity0010", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity0010", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", "base00z"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0010", "\[Equal]", "0"}], ",", RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"Opacity", "[", "opacity0010", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "+", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", "i", "\[LessEqual]", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "+", "radius"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", " ", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], "<", RowBox[{"base00x", "+", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"base00x", "+", "radius", "-", "arrowlength", "+", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0010", ">", "0"}], ",", "inc", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0010", "<", "0"}], ",", RowBox[{"-", "inc"}], ",", "0"}], "]"}]}], "]"}]}], ",", RowBox[{ "base00x", "+", "1", "-", "radius", "+", "arrowlength"}], ",", "arrowdelta"}], "}"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"highlight01", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab01", ",", RowBox[{"CMYKColor", "[", RowBox[{"0.8837", ",", ".7692", ",", "0", ",", "0"}], "]"}], ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity01", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity01", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Opacity", "[", "highlightOpac", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}], ",", RowBox[{"radius", "+", "highlightEpi"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab01", ",", RowBox[{"CMYKColor", "[", RowBox[{"0.8837", ",", ".7692", ",", "0", ",", "0"}], "]"}], ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity01", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity01", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"highlight0001", ",", "Yellow", ",", RowBox[{"If", "[", RowBox[{"viab0001", ",", "White", ",", "LightGray"}], "]"}]}], "]"}], ",", RowBox[{"Opacity", "[", "opacity0001", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity0001", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "radius"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], ",", "base00y", ",", "base00z"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0001", "\[Equal]", "0"}], ",", RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"Opacity", "[", "opacity0001", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "-", "1", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "-", "1", "+", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}], ">", RowBox[{"base00x", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "-", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], "\[LessEqual]", "i", "\[LessEqual]", RowBox[{"base00x", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "-", "1", "+", "radius"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], "\[LessEqual]", " ", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", " ", RowBox[{"base00x", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], "<", RowBox[{"base00x", "-", "1", "+", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ">", RowBox[{"base00x", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "-", "1", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0001", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ "base00x", "-", "1", "+", "radius", "-", "arrowlength", "+", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"-", "edge0001"}], ">", "0"}], ",", "inc", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"-", "edge0001"}], "<", "0"}], ",", RowBox[{"-", "inc"}], ",", "0"}], "]"}]}], "]"}]}], ",", RowBox[{"base00x", "-", "radius", "+", "arrowlength"}], ",", "arrowdelta"}], "}"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"highlight11", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab11", ",", RowBox[{"CMYKColor", "[", RowBox[{"0", ",", ".994", ",", "1", ",", "0"}], "]"}], ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity11", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity11", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "2"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "2"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Opacity", "[", "highlightOpac", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "2"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "2"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}], ",", RowBox[{"radius", "+", "highlightEpi"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab11", ",", RowBox[{"CMYKColor", "[", RowBox[{"0", ",", ".994", ",", "1", ",", "0"}], "]"}], ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity11", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity11", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "2"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "2"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"highlight1011", ",", "Yellow", ",", RowBox[{"If", "[", RowBox[{"viab1011", ",", "White", ",", "LightGray"}], "]"}]}], "]"}], ",", RowBox[{"Opacity", "[", "opacity1011", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity1011", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "2", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "2", "-", "radius"}], ",", "base00y", ",", "base00z"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"edge1011", "\[Equal]", "0"}], ",", RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"Opacity", "[", "opacity1011", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "+", "1", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "+", "1", "+", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}], ">", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], "\[LessEqual]", "i", "\[LessEqual]", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "+", "1", "+", "radius"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], "\[LessEqual]", " ", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], "<", RowBox[{"base00x", "+", "1", "+", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ">", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "+", "1", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge1011", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ "base00x", "+", "1", "+", "radius", "-", "arrowlength", "+", RowBox[{"If", "[", RowBox[{ RowBox[{"edge1011", ">", "0"}], ",", "inc", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"edge1011", "<", "0"}], ",", RowBox[{"-", "inc"}], ",", "0"}], "]"}]}], "]"}]}], ",", RowBox[{ "base00x", "+", "1", "+", "1", "-", "radius", "+", "arrowlength"}], ",", "arrowdelta"}], "}"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"highlight11", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab11", ",", RowBox[{"CMYKColor", "[", RowBox[{"0", ",", ".994", ",", "1", ",", "0"}], "]"}], ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity11", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity11", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "2"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "2"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Opacity", "[", "highlightOpac", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "2"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "2"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}], ",", RowBox[{"radius", "+", "highlightEpi"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab11", ",", RowBox[{"CMYKColor", "[", RowBox[{"0", ",", ".994", ",", "1", ",", "0"}], "]"}], ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity11", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity11", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "2"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "2"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"highlight0111", ",", "Yellow", ",", RowBox[{"If", "[", RowBox[{"viab0111", ",", "White", ",", "LightGray"}], "]"}]}], "]"}], ",", RowBox[{"Opacity", "[", "opacity0111", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity0111", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "radius"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "2", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "2", "+", "radius"}], ",", "base00y", ",", "base00z"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0111", "\[Equal]", "0"}], ",", RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"Opacity", "[", "opacity0111", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}], ">", RowBox[{"base00x", "-", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "-", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "-", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], "\[LessEqual]", "i", "\[LessEqual]", RowBox[{"base00x", "-", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "-", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], "\[LessEqual]", " ", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", " ", RowBox[{"base00x", "-", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "-", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "-", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], "<", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "-", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ">", RowBox[{"base00x", "-", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "-", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "1", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "1", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "-", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "+", RowBox[{"edge0111", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ "base00x", "-", "1", "-", "1", "+", "radius", "-", "arrowlength", "+", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"-", "edge0111"}], ">", "0"}], ",", "inc", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"-", "edge0111"}], "<", "0"}], ",", RowBox[{"-", "inc"}], ",", "0"}], "]"}]}], "]"}]}], ",", RowBox[{ "base00x", "-", "1", "-", "radius", "+", "arrowlength"}], ",", "arrowdelta"}], "}"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"ViewVector", "\[Rule]", RowBox[{"{", RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}]}], ",", RowBox[{"Lighting", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"\"\\"", ",", "White"}], "}"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "2"}], ",", RowBox[{"base00x", "+", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00y", "-", "radius", "-", RowBox[{"2", "*", "highlightEpi"}]}], ",", RowBox[{"base00y", "+", "radius", "+", RowBox[{"2", "*", "highlightEpi"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00z", "-", "highlightEpi", "-", RowBox[{"nslicesbelow", "*", "height"}]}], ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.549309751640194*^9, 3.549309751983394*^9}, { 3.54930982219532*^9, 3.54930982772373*^9}, {3.5493098811980247`*^9, 3.549309890745241*^9}, 3.5493099410085297`*^9, {3.5493100466363153`*^9, 3.5493100468859158`*^9}, 3.5493101135262957`*^9, {3.5493120225102935`*^9, 3.5493121701665535`*^9}, {3.549312631936515*^9, 3.5493127181266665`*^9}, { 3.549312826438657*^9, 3.549312840728282*^9}, {3.549313284674862*^9, 3.5493133028176937`*^9}, {3.5493133337770433`*^9, 3.5493133370772324`*^9}, {3.5493135318235836`*^9, 3.549313584130475*^9}, 3.5493136741738334`*^9, {3.5493137226275187`*^9, 3.5493138247296977`*^9}, { 3.549313870905779*^9, 3.549313874337785*^9}, {3.549314469400304*^9, 3.5493144706951065`*^9}, {3.5493147815568523`*^9, 3.5493147988572826`*^9}, {3.5493149053742695`*^9, 3.549315109906229*^9}, { 3.5493151923769026`*^9, 3.5493152361606703`*^9}, {3.5493153888288064`*^9, 3.5493153938832154`*^9}, {3.5493154366428905`*^9, 3.549315468669747*^9}, { 3.549315564329115*^9, 3.5493155982279744`*^9}, {3.549315645761258*^9, 3.5493156919997387`*^9}, {3.549315750593442*^9, 3.5493159674036226`*^9}, { 3.549316006310091*^9, 3.549316021644918*^9}, {3.5493160862758317`*^9, 3.5493160887718363`*^9}, {3.5493161562047653`*^9, 3.5493161832705564`*^9}, 3.549317819492756*^9, {3.549318522659311*^9, 3.5493185454509506`*^9}, { 3.549318590129429*^9, 3.549318607117859*^9}, {3.5493188054566073`*^9, 3.549318839511467*^9}, {3.549318901672645*^9, 3.549318945766703*^9}, { 3.54931907493493*^9, 3.549319075153331*^9}, {3.549319150938264*^9, 3.5493191513126645`*^9}, {3.549319192122336*^9, 3.549319225194394*^9}, { 3.549319352398018*^9, 3.54931937642206*^9}, {3.549319505765319*^9, 3.549319535795372*^9}, {3.5493196653535995`*^9, 3.5493198121518574`*^9}, { 3.549320253559052*^9, 3.5493202539802527`*^9}, {3.54932168866234*^9, 3.5493216918447456`*^9}, {3.549321735561926*^9, 3.5493218580850782`*^9}, { 3.5493219065231633`*^9, 3.549321963775264*^9}, 3.54932206976185*^9, { 3.549322112927126*^9, 3.5493221596492076`*^9}, {3.54932222326612*^9, 3.5493222996594534`*^9}, {3.5493225405800433`*^9, 3.549322632651828*^9}, { 3.5493227190184507`*^9, 3.5493227795465565`*^9}, {3.5493228835373397`*^9, 3.5493229359846315`*^9}, 3.549322992378731*^9, {3.54932304312562*^9, 3.5493230856980944`*^9}, {3.549323575844925*^9, 3.5493236313536167`*^9}, { 3.5493239418117623`*^9, 3.5493239423733635`*^9}, {3.5493240111246843`*^9, 3.5493240378787313`*^9}, {3.5493242645939293`*^9, 3.549324294530382*^9}, { 3.5493243358548546`*^9, 3.5493243592392955`*^9}, {3.5493244439840584`*^9, 3.5493244950293484`*^9}, {3.5493260362598343`*^9, 3.549326067210289*^9}, { 3.549326105900357*^9, 3.5493261160247746`*^9}, {3.549326299543497*^9, 3.5493263010254993`*^9}, {3.54933202307415*^9, 3.549332031560565*^9}, { 3.5493321212315226`*^9, 3.549332185099035*^9}, {3.549416922353857*^9, 3.5494169522493916`*^9}, {3.549417007643072*^9, 3.549417024275776*^9}, { 3.549418997027174*^9, 3.549419008933694*^9}, {3.5494193810157833`*^9, 3.5494194291292963`*^9}, {3.5494194611818647`*^9, 3.5494195718303137`*^9}, {3.5494196026328096`*^9, 3.5494196643420906`*^9}, {3.5494197649423237`*^9, 3.5494198400743628`*^9}, {3.5494199349222956`*^9, 3.5494200267642546`*^9}, {3.54942007921014*^9, 3.549420085482485*^9}, { 3.549420117188225*^9, 3.5494201312029157`*^9}, {3.5494201789693413`*^9, 3.5494202557133045`*^9}, {3.5494203851578264`*^9, 3.549420385900832*^9}, { 3.54942048823332*^9, 3.5494205342864046`*^9}, 3.5548552416271725`*^9, { 3.5548553992071857`*^9, 3.554855600971726*^9}, {3.5548557540074787`*^9, 3.5548558433695903`*^9}, {3.554855933567749*^9, 3.5548561227925725`*^9}, { 3.5548562103015776`*^9, 3.554856258094311*^9}, {3.5548563410620565`*^9, 3.5548563440872297`*^9}, {3.554856386440652*^9, 3.5548564319012527`*^9}, { 3.554856472984602*^9, 3.5548564958179083`*^9}, {3.5548565533331976`*^9, 3.554856557097413*^9}, {3.5548569608855085`*^9, 3.5548570269732885`*^9}, { 3.555689373823847*^9, 3.5556893740563507`*^9}, {3.5556899517539954`*^9, 3.555689952549597*^9}, {3.5556900071333184`*^9, 3.555690007383319*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 3d Landscape \ \[OpenCurlyDoubleQuote]Wall\[CloseCurlyDoubleQuote]", "Section", CellChangeTimes->{{3.546890806999791*^9, 3.546890817581396*^9}, { 3.5494207949228487`*^9, 3.5494208073704634`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"X", "=", RowBox[{"LandscapeSlice2D", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "False", ",", "False", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "3.5"}], ",", "2.1"}], "}"}], ",", RowBox[{"{", ".002", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y", "=", RowBox[{"LandscapeSlice2D", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0.25"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "3.5"}], ",", "2.1"}], "}"}], ",", RowBox[{"{", ".002", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Z", "=", RowBox[{"LandscapeSlice2D", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "False", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "3.5"}], ",", "2.1"}], "}"}], ",", RowBox[{"{", ".002", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"X", ",", "Y", ",", "Z"}], "]"}]}], "Input", CellChangeTimes->{{3.5493251038148746`*^9, 3.5493251675721865`*^9}, { 3.5493263145819235`*^9, 3.5493263568111973`*^9}, {3.54932655724335*^9, 3.549326565729765*^9}, {3.549328538735087*^9, 3.549328559358323*^9}, { 3.549328601510597*^9, 3.549328629387846*^9}, {3.5493286763595285`*^9, 3.549328694611561*^9}, {3.5494183018152246`*^9, 3.5494183148359394`*^9}, { 3.5494183779702845`*^9, 3.549418389719884*^9}, {3.5494203098009396`*^9, 3.5494203527050734`*^9}, {3.5494204093121333`*^9, 3.5494204555886707`*^9}, { 3.5494205664211407`*^9, 3.5494206243481855`*^9}, {3.54942120248508*^9, 3.549421219375002*^9}, {3.5548570822384496`*^9, 3.554857089287853*^9}, { 3.5556900869707575`*^9, 3.5556900902155633`*^9}}], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", StyleBox[ RowBox[{"Show", "[", RowBox[{"X", ",", "Y", ",", "Z"}], "]"}], FontWeight->"Plain"], ",", RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.554857169247426*^9, 3.5548571740587015`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figures 4b [GRADUAL 13]", "Section", CellChangeTimes->{{3.546890806999791*^9, 3.546890817581396*^9}, { 3.5494208355589375`*^9, 3.549420842914338*^9}, {3.554857782776518*^9, 3.5548577923200636`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"NSlices", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"height", "=", ".25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetDirectory", "[", "wd", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "->", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeDir", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GenoHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "NSlices"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["E", "i"], "=", RowBox[{"LandscapeSlice2D", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"height", "*", RowBox[{"(", RowBox[{"NSlices", "-", "i"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", RowBox[{"NSlices", "-", "i"}]}], "}"}], ",", StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["{", FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}]}], StyleBox["}", FontColor->RGBColor[1, 0, 0]]}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "3", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "3", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->RGBColor[1, 0, 0]], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "3", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "12"}], ",", "10"}], "}"}], ",", RowBox[{"{", ".002", "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"G13Wall", "=", RowBox[{"Show", "[", RowBox[{"Table", "[", RowBox[{ SubscriptBox["E", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NSlices"}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", StyleBox["G13Wall", FontWeight->"Plain"], ",", RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.5494209103478365`*^9, 3.5494209441086593`*^9}, { 3.5494210678112354`*^9, 3.5494210732284527`*^9}, {3.5494214439463263`*^9, 3.5494214476624784`*^9}, {3.5494214927404547`*^9, 3.5494216310147586`*^9}, {3.5494216687665324`*^9, 3.5494216758696165`*^9}, {3.549421706902141*^9, 3.5494217843189487`*^9}, { 3.5494231482490435`*^9, 3.5494231520160503`*^9}, {3.5494236218883247`*^9, 3.549423625838339*^9}, {3.549423899142906*^9, 3.5494238994089212`*^9}, { 3.5495534301886168`*^9, 3.549553461932853*^9}, 3.54984281594474*^9, { 3.554857388604973*^9, 3.5548573919941664`*^9}, 3.555690119619585*^9, { 3.5561508124559574`*^9, 3.5561508129179835`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figures 4d [GRADUAL 18]", "Section", CellChangeTimes->{{3.546890806999791*^9, 3.546890817581396*^9}, { 3.5494208355589375`*^9, 3.549420842914338*^9}, {3.554857782776518*^9, 3.554857807080908*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"NSlices", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"height", "=", ".25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetDirectory", "[", "wd", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "->", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeDir", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GenoHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "NSlices"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["E", "i"], "=", RowBox[{"LandscapeSlice2D", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"height", "*", RowBox[{"(", RowBox[{"NSlices", "-", "i"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", RowBox[{"NSlices", "-", "i"}]}], "}"}], ",", StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["{", FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}]}], StyleBox["}", FontColor->RGBColor[1, 0, 0]]}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "3", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "3", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->RGBColor[1, 0, 0]], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "3", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "12"}], ",", "10"}], "}"}], ",", RowBox[{"{", ".002", "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"G18Wall", "=", RowBox[{"Show", "[", RowBox[{"Table", "[", RowBox[{ SubscriptBox["E", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NSlices"}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", StyleBox["G18Wall", FontWeight->"Plain"], ",", RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.5494238591255684`*^9, 3.5494238722202787`*^9}, { 3.549423927653967*^9, 3.5494239348779383`*^9}, {3.5495462550200167`*^9, 3.54954628362032*^9}, {3.549546318224435*^9, 3.5495463284736533`*^9}, { 3.549546437958646*^9, 3.5495464438086557`*^9}, {3.5495464786435175`*^9, 3.549546511091574*^9}, {3.5495526958826256`*^9, 3.5495527259966784`*^9}, { 3.549552770487957*^9, 3.549552835163272*^9}, {3.5495529757233186`*^9, 3.549552977470522*^9}, {3.549553102317541*^9, 3.54955315876223*^9}, { 3.549553364421792*^9, 3.5495533658257947`*^9}, {3.5548574001576333`*^9, 3.554857401458708*^9}, 3.555690146972477*^9, {3.556150833343152*^9, 3.5561508345522213`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Supplementary Figures 3b [MODERATE 358]\ \>", "Section", CellChangeTimes->{{3.546890806999791*^9, 3.546890817581396*^9}, { 3.5494208355589375`*^9, 3.549420842914338*^9}, {3.5548512647197065`*^9, 3.554851274640274*^9}, {3.554857423384962*^9, 3.5548574339515667`*^9}, { 3.554857811345152*^9, 3.5548578199766455`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"NSlices", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"height", "=", ".25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetDirectory", "[", "wd", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "->", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeDir", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GenoHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "NSlices"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["E", "i"], "=", RowBox[{"LandscapeSlice2D", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"height", "*", RowBox[{"(", RowBox[{"NSlices", "-", "i"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", RowBox[{"NSlices", "-", "i"}]}], "}"}], ",", StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["{", FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}]}], StyleBox["}", FontColor->RGBColor[1, 0, 0]]}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "3", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "3", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->RGBColor[1, 0, 0]], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "3", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "12"}], ",", "10"}], "}"}], ",", RowBox[{"{", ".002", "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"G358Wall", "=", RowBox[{"Show", "[", RowBox[{"Table", "[", RowBox[{ SubscriptBox["E", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NSlices"}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", StyleBox["G358Wall", FontWeight->"Plain"], ",", RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.5494209103478365`*^9, 3.5494209441086593`*^9}, { 3.5494210678112354`*^9, 3.5494210732284527`*^9}, {3.5494214439463263`*^9, 3.5494214476624784`*^9}, {3.5494214927404547`*^9, 3.5494216310147586`*^9}, {3.5494216687665324`*^9, 3.5494216758696165`*^9}, {3.549421706902141*^9, 3.5494217843189487`*^9}, { 3.5494231482490435`*^9, 3.5494231520160503`*^9}, {3.5494236218883247`*^9, 3.549423625838339*^9}, {3.549423899142906*^9, 3.5494238994089212`*^9}, { 3.5495534301886168`*^9, 3.549553461932853*^9}, 3.54984281594474*^9, { 3.5548512872559958`*^9, 3.554851335551758*^9}, {3.5548574060049677`*^9, 3.5548574063169856`*^9}, 3.5556901653800645`*^9, {3.5561508452678337`*^9, 3.556150846896927*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Supplementary Figures 3d [MODERATE 367]\ \>", "Section", CellChangeTimes->{{3.546890806999791*^9, 3.546890817581396*^9}, { 3.5494208355589375`*^9, 3.549420842914338*^9}, {3.5548512647197065`*^9, 3.554851274640274*^9}, {3.554857423384962*^9, 3.5548574339515667`*^9}, { 3.554857811345152*^9, 3.554857837128627*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"NSlices", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"height", "=", ".25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetDirectory", "[", "wd", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "->", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeDir", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GenoHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "NSlices"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["E", "i"], "=", RowBox[{"LandscapeSlice2D", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"height", "*", RowBox[{"(", RowBox[{"NSlices", "-", "i"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", RowBox[{"NSlices", "-", "i"}]}], "}"}], ",", StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["{", FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}]}], StyleBox["}", FontColor->RGBColor[1, 0, 0]]}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "3", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "3", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->RGBColor[1, 0, 0]], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "3", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "12"}], ",", "10"}], "}"}], ",", RowBox[{"{", ".002", "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"G367Wall", "=", RowBox[{"Show", "[", RowBox[{"Table", "[", RowBox[{ SubscriptBox["E", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NSlices"}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", StyleBox["G367Wall", FontWeight->"Plain"], ",", RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.5548518464659805`*^9, 3.55485186884126*^9}, { 3.5548574113862753`*^9, 3.5548574117862988`*^9}, 3.5556901846689324`*^9, { 3.5561508570675087`*^9, 3.5561508572575197`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Landscape Slice Function (2D version) For Two Genotypes (SUDDEN \ RECONSTRUCTIONS)\ \>", "Section", CellChangeTimes->{{3.546890806999791*^9, 3.546890817581396*^9}, { 3.5494207478983593`*^9, 3.549420756809826*^9}, {3.554857742369207*^9, 3.554857760512244*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"LandscapeSlice2D2G", "[", RowBox[{ RowBox[{"{", RowBox[{"base00x_", ",", "base00y_", ",", "base00z_"}], "}"}], ",", RowBox[{"{", RowBox[{"radius_", ",", "height_", ",", "nslicesbelow_"}], "}"}], ",", RowBox[{"{", RowBox[{"opacity00_", ",", "opacity10_"}], "}"}], ",", RowBox[{"{", RowBox[{"highlight00_", ",", "highlight10_"}], "}"}], ",", RowBox[{"{", RowBox[{"viab00_", ",", "viab10_"}], "}"}], ",", RowBox[{"{", "edge0010_", "}"}], ",", RowBox[{"{", "opacity0010_", "}"}], ",", RowBox[{"{", "highlight0010_", "}"}], ",", RowBox[{"{", "viab0010_", "}"}], ",", RowBox[{"{", RowBox[{"highlightOpac_", ",", "highlightEpi_"}], "}"}], ",", RowBox[{"{", RowBox[{"arrowlength_", ",", "arrowdelta_", ",", "inc_"}], "}"}], ",", RowBox[{"{", RowBox[{"vx_", ",", "vy_", ",", "vz_"}], "}"}], ",", RowBox[{"{", "linewd_", "}"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{"highlight00", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab00", ",", "Black", ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity00", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity00", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Opacity", "[", "highlightOpac", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}], ",", RowBox[{"radius", "+", "highlightEpi"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab00", ",", "Black", ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity00", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity00", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"base00x", ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"highlight10", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab10", ",", RowBox[{"CMYKColor", "[", RowBox[{"0.8631", ",", ".1957", ",", "1", ",", ".0771"}], "]"}], ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity10", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity10", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Opacity", "[", "highlightOpac", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}], ",", RowBox[{"radius", "+", "highlightEpi"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"viab10", ",", RowBox[{"CMYKColor", "[", RowBox[{"0.8631", ",", ".1957", ",", "1", ",", ".0771"}], "]"}], ",", "LightGray"}], "]"}], ",", RowBox[{"Opacity", "[", "opacity10", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity10", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], ",", "radius"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"highlight0010", ",", "Yellow", ",", RowBox[{"If", "[", RowBox[{"viab0010", ",", "White", ",", "LightGray"}], "]"}]}], "]"}], ",", RowBox[{"Opacity", "[", "opacity0010", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "opacity0010", "]"}], ",", RowBox[{"Thickness", "[", "linewd", "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", "base00z"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0010", "\[Equal]", "0"}], ",", RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"Opacity", "[", "opacity0010", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "+", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", "i", "\[LessEqual]", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", "<", RowBox[{"base00x", "+", "radius"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", " ", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", "base00z"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ",", "base00y", ",", RowBox[{"base00z", "+", "height"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], "<", RowBox[{"base00x", "+", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"base00x", "+", "radius"}], "\[LessEqual]", " ", "i", "\[LessEqual]", " ", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "base00y", ",", RowBox[{"base00z", "+", FractionBox["height", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}], "<", RowBox[{"base00x", "+", "radius"}]}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"i", ">", RowBox[{"base00x", "+", "1", "-", "radius"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "linewd", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00x", "+", "1", "-", "radius"}], ",", "base00y", ",", RowBox[{"base00z", "+", "height", "-", RowBox[{ RowBox[{"(", RowBox[{"-", FractionBox["height", RowBox[{"2", "*", "arrowlength"}]]}], ")"}], "*", RowBox[{"(", RowBox[{"base00x", "+", "1", "-", "radius", "-", RowBox[{"(", RowBox[{"i", "-", RowBox[{"edge0010", "*", "arrowlength"}]}], ")"}]}], ")"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"base00x", "+", "radius", "-", "arrowlength", "+", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0010", ">", "0"}], ",", "inc", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"edge0010", "<", "0"}], ",", RowBox[{"-", "inc"}], ",", "0"}], "]"}]}], "]"}]}], ",", RowBox[{ "base00x", "+", "1", "-", "radius", "+", "arrowlength"}], ",", "arrowdelta"}], "}"}]}], "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"ViewVector", "\[Rule]", RowBox[{"{", RowBox[{"vx", ",", "vy", ",", "vz"}], "}"}]}], ",", RowBox[{"Lighting", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"\"\\"", ",", "White"}], "}"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"base00x", "-", "2"}], ",", RowBox[{"base00x", "+", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00y", "-", "radius", "-", RowBox[{"2", "*", "highlightEpi"}]}], ",", RowBox[{"base00y", "+", "radius", "+", RowBox[{"2", "*", "highlightEpi"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"base00z", "-", "highlightEpi", "-", RowBox[{"nslicesbelow", "*", "height"}]}], ",", RowBox[{"base00z", "+", "height", "+", "highlightEpi"}]}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.549309751640194*^9, 3.549309751983394*^9}, { 3.54930982219532*^9, 3.54930982772373*^9}, {3.5493098811980247`*^9, 3.549309890745241*^9}, 3.5493099410085297`*^9, {3.5493100466363153`*^9, 3.5493100468859158`*^9}, 3.5493101135262957`*^9, {3.5493120225102935`*^9, 3.5493121701665535`*^9}, {3.549312631936515*^9, 3.5493127181266665`*^9}, { 3.549312826438657*^9, 3.549312840728282*^9}, {3.549313284674862*^9, 3.5493133028176937`*^9}, {3.5493133337770433`*^9, 3.5493133370772324`*^9}, {3.5493135318235836`*^9, 3.549313584130475*^9}, 3.5493136741738334`*^9, {3.5493137226275187`*^9, 3.5493138247296977`*^9}, { 3.549313870905779*^9, 3.549313874337785*^9}, {3.549314469400304*^9, 3.5493144706951065`*^9}, {3.5493147815568523`*^9, 3.5493147988572826`*^9}, {3.5493149053742695`*^9, 3.549315109906229*^9}, { 3.5493151923769026`*^9, 3.5493152361606703`*^9}, {3.5493153888288064`*^9, 3.5493153938832154`*^9}, {3.5493154366428905`*^9, 3.549315468669747*^9}, { 3.549315564329115*^9, 3.5493155982279744`*^9}, {3.549315645761258*^9, 3.5493156919997387`*^9}, {3.549315750593442*^9, 3.5493159674036226`*^9}, { 3.549316006310091*^9, 3.549316021644918*^9}, {3.5493160862758317`*^9, 3.5493160887718363`*^9}, {3.5493161562047653`*^9, 3.5493161832705564`*^9}, 3.549317819492756*^9, {3.549318522659311*^9, 3.5493185454509506`*^9}, { 3.549318590129429*^9, 3.549318607117859*^9}, {3.5493188054566073`*^9, 3.549318839511467*^9}, {3.549318901672645*^9, 3.549318945766703*^9}, { 3.54931907493493*^9, 3.549319075153331*^9}, {3.549319150938264*^9, 3.5493191513126645`*^9}, {3.549319192122336*^9, 3.549319225194394*^9}, { 3.549319352398018*^9, 3.54931937642206*^9}, {3.549319505765319*^9, 3.549319535795372*^9}, {3.5493196653535995`*^9, 3.5493198121518574`*^9}, { 3.549320253559052*^9, 3.5493202539802527`*^9}, {3.54932168866234*^9, 3.5493216918447456`*^9}, {3.549321735561926*^9, 3.5493218580850782`*^9}, { 3.5493219065231633`*^9, 3.549321963775264*^9}, 3.54932206976185*^9, { 3.549322112927126*^9, 3.5493221596492076`*^9}, {3.54932222326612*^9, 3.5493222996594534`*^9}, {3.5493225405800433`*^9, 3.549322632651828*^9}, { 3.5493227190184507`*^9, 3.5493227795465565`*^9}, {3.5493228835373397`*^9, 3.5493229359846315`*^9}, 3.549322992378731*^9, {3.54932304312562*^9, 3.5493230856980944`*^9}, {3.549323575844925*^9, 3.5493236313536167`*^9}, { 3.5493239418117623`*^9, 3.5493239423733635`*^9}, {3.5493240111246843`*^9, 3.5493240378787313`*^9}, {3.5493242645939293`*^9, 3.549324294530382*^9}, { 3.5493243358548546`*^9, 3.5493243592392955`*^9}, {3.5493244439840584`*^9, 3.5493244950293484`*^9}, {3.5493260362598343`*^9, 3.549326067210289*^9}, { 3.549326105900357*^9, 3.5493261160247746`*^9}, {3.549326299543497*^9, 3.5493263010254993`*^9}, {3.54933202307415*^9, 3.549332031560565*^9}, { 3.5493321212315226`*^9, 3.549332185099035*^9}, {3.549416922353857*^9, 3.5494169522493916`*^9}, {3.549417007643072*^9, 3.549417024275776*^9}, { 3.549418997027174*^9, 3.549419008933694*^9}, {3.5494193810157833`*^9, 3.5494194291292963`*^9}, {3.5494194611818647`*^9, 3.5494195718303137`*^9}, {3.5494196026328096`*^9, 3.5494196643420906`*^9}, {3.5494197649423237`*^9, 3.5494198400743628`*^9}, {3.5494199349222956`*^9, 3.5494200267642546`*^9}, {3.54942007921014*^9, 3.549420085482485*^9}, { 3.549420117188225*^9, 3.5494201312029157`*^9}, {3.5494201789693413`*^9, 3.5494202557133045`*^9}, {3.5494203851578264`*^9, 3.549420385900832*^9}, { 3.54942048823332*^9, 3.5494205342864046`*^9}, 3.5548552416271725`*^9, { 3.5548553992071857`*^9, 3.554855600971726*^9}, {3.5548557540074787`*^9, 3.5548558433695903`*^9}, {3.554855933567749*^9, 3.5548561227925725`*^9}, { 3.5548562103015776`*^9, 3.554856258094311*^9}, {3.5548563410620565`*^9, 3.5548563440872297`*^9}, {3.554856386440652*^9, 3.5548564319012527`*^9}, { 3.554856472984602*^9, 3.5548564958179083`*^9}, {3.5548565533331976`*^9, 3.554856557097413*^9}, {3.5548569608855085`*^9, 3.5548570269732885`*^9}, { 3.5548578523664985`*^9, 3.554857910582828*^9}, {3.554857956894477*^9, 3.554857983069974*^9}, {3.5548581002176743`*^9, 3.5548581015947533`*^9}, { 3.554858252212368*^9, 3.554858264645079*^9}, {3.554858424341213*^9, 3.5548584376679754`*^9}, 3.5548584827525544`*^9, 3.5548585525425463`*^9, { 3.555690007583319*^9, 3.5556900077833195`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Supplementary Figure 4 [SUDDEN 497 & 1236]\ \>", "Section", CellChangeTimes->{{3.546890806999791*^9, 3.546890817581396*^9}, { 3.5494208355589375`*^9, 3.549420842914338*^9}, {3.5548512647197065`*^9, 3.554851274640274*^9}, {3.554857423384962*^9, 3.5548574339515667`*^9}, { 3.554857811345152*^9, 3.554857837128627*^9}, {3.554859173073038*^9, 3.5548591825845823`*^9}, {3.5561508829899917`*^9, 3.5561508865561953`*^9}, { 3.5561513782973213`*^9, 3.556151384196659*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"NSlices", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"height", "=", ".25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetDirectory", "[", "wd", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "->", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeDir", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GenoHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "NSlices"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["E", "i"], "=", RowBox[{"LandscapeSlice2D2G", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"height", "*", RowBox[{"(", RowBox[{"NSlices", "-", "i"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", RowBox[{"NSlices", "-", "i"}]}], "}"}], ",", StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["{", FontColor->RGBColor[1, 0, 0]], RowBox[{"False", StyleBox[",", FontColor->RGBColor[1, 0, 0]], "False"}], StyleBox["}", FontColor->RGBColor[1, 0, 0]]}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "1", "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "False", "}"}], FontColor->RGBColor[1, 0, 0]], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "12"}], ",", "10"}], "}"}], ",", RowBox[{"{", ".002", "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"S497Wall", "=", RowBox[{"Show", "[", RowBox[{"Table", "[", RowBox[{ SubscriptBox["E", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NSlices"}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", StyleBox["S497Wall", FontWeight->"Plain"], ",", RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.55485884965854*^9, 3.5548588611821995`*^9}, { 3.5548589079778757`*^9, 3.5548589831871777`*^9}, {3.554859017530142*^9, 3.554859030645892*^9}, {3.555016676401697*^9, 3.5550167349500456`*^9}, 3.555690231770542*^9, {3.556150878569739*^9, 3.5561508790657673`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"height", "=", ".25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetDirectory", "[", "wd", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "->", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeDir", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GenoHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV11", "=", RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV21", "=", RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV12", "=", RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV22", "=", RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeV11", "=", RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeV12", "=", RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeDir11", "=", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeDir12", "=", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["E", "1"], "=", RowBox[{"LandscapeSlice2D2G", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "height"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", "1"}], "}"}], ",", StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["{", FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}]}], StyleBox["}", FontColor->RGBColor[1, 0, 0]]}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"PV11", "\[Equal]", "1"}], ",", RowBox[{"PV21", "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "EdgeDir11", "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "1", "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{"EdgeV11", "\[Equal]", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "12"}], ",", "10"}], "}"}], ",", RowBox[{"{", ".0025", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["E", "2"], "=", RowBox[{"LandscapeSlice2D2G", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", "0"}], "}"}], ",", StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["{", FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}]}], StyleBox["}", FontColor->RGBColor[1, 0, 0]]}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"PV12", "\[Equal]", "1"}], ",", RowBox[{"PV22", "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "EdgeDir12", "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "1", "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{"EdgeV12", "\[Equal]", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "12"}], ",", "10"}], "}"}], ",", RowBox[{"{", ".002", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"S497WallHigh", "=", RowBox[{"Show", "[", RowBox[{"{", RowBox[{ SubscriptBox["E", "1"], ",", SubscriptBox["E", "2"]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", StyleBox["S497WallHigh", FontWeight->"Plain"], ",", RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{ 3.5550172656774015`*^9, {3.5550173585127115`*^9, 3.5550173680402565`*^9}, { 3.555017438547289*^9, 3.5550174966116104`*^9}, {3.555017674398779*^9, 3.555017674722798*^9}, {3.5550177188953247`*^9, 3.555017824008336*^9}, { 3.555553122810192*^9, 3.5555531234252276`*^9}, 3.555690261191704*^9, { 3.5561508992489214`*^9, 3.5561508994579334`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"NSlices", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"height", "=", ".25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetDirectory", "[", "wd", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "->", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeDir", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GenoHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "NSlices"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["E", "i"], "=", RowBox[{"LandscapeSlice2D2G", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"height", "*", RowBox[{"(", RowBox[{"NSlices", "-", "i"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", RowBox[{"NSlices", "-", "i"}]}], "}"}], ",", StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["{", FontColor->RGBColor[1, 0, 0]], RowBox[{"False", StyleBox[",", FontColor->RGBColor[1, 0, 0]], "False"}], StyleBox["}", FontColor->RGBColor[1, 0, 0]]}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "1", "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "False", "}"}], FontColor->RGBColor[1, 0, 0]], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "12"}], ",", "10"}], "}"}], ",", RowBox[{"{", ".002", "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"S1236Wall", "=", RowBox[{"Show", "[", RowBox[{"Table", "[", RowBox[{ SubscriptBox["E", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NSlices"}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", StyleBox["S1236Wall", FontWeight->"Plain"], ",", RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.5550168361418333`*^9, 3.555016862378334*^9}, 3.555690273632553*^9, {3.5561509085334525`*^9, 3.556150908703462*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"height", "=", ".25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetDirectory", "[", "wd", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "->", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeV", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeDir", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GenoHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeHigh", "=", RowBox[{"ReadList", "[", RowBox[{"\"\\"", ",", "Number", ",", RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV11", "=", RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV21", "=", RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV12", "=", RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV22", "=", RowBox[{ RowBox[{"PV", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeV11", "=", RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeV12", "=", RowBox[{ RowBox[{"EdgeV", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeDir11", "=", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EdgeDir12", "=", RowBox[{ RowBox[{"EdgeDir", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["E", "1"], "=", RowBox[{"LandscapeSlice2D2G", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "height"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", "1"}], "}"}], ",", StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["{", FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}]}], StyleBox["}", FontColor->RGBColor[1, 0, 0]]}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"PV11", "\[Equal]", "1"}], ",", RowBox[{"PV21", "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "EdgeDir11", "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "1", "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{"EdgeV11", "\[Equal]", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "12"}], ",", "10"}], "}"}], ",", RowBox[{"{", ".0025", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["E", "2"], "=", RowBox[{"LandscapeSlice2D2G", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".25", ",", "0"}], "}"}], ",", StyleBox[ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["{", FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{ RowBox[{"GenoHigh", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[Equal]", FontColor->RGBColor[1, 0, 0]], "1"}]}], StyleBox["}", FontColor->RGBColor[1, 0, 0]]}], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"PV12", "\[Equal]", "1"}], ",", RowBox[{"PV22", "\[Equal]", "1"}]}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "EdgeDir12", "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "1", "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeHigh", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{"EdgeV12", "\[Equal]", "1"}], "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{"{", RowBox[{".65", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{".8", "/", "7"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "12"}], ",", "10"}], "}"}], ",", RowBox[{"{", ".002", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"S1236WallHigh", "=", RowBox[{"Show", "[", RowBox[{"{", RowBox[{ SubscriptBox["E", "1"], ",", SubscriptBox["E", "2"]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", StyleBox["S1236WallHigh", FontWeight->"Plain"], ",", RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.5555531618184233`*^9, 3.5555532013156824`*^9}, 3.555690287796913*^9, {3.5561509186540318`*^9, 3.55615095342702*^9}}] }, Open ]] }, WindowSize->{1161, 668}, WindowMargins->{{1, Automatic}, {Automatic, -1}}, FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 430, 6, 65, "Text"], Cell[990, 28, 271, 5, 31, "Input"], Cell[CellGroupData[{ Cell[1286, 37, 171, 2, 71, "Section"], Cell[1460, 41, 114917, 2504, 6327, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[116414, 2550, 127, 2, 71, "Section"], Cell[116544, 2554, 1516, 39, 52, "Input"], Cell[118063, 2595, 3559, 69, 72, "Input"], Cell[121625, 2666, 2031, 45, 52, "Input"], Cell[123659, 2713, 2093, 46, 52, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[125789, 2764, 173, 2, 71, "Section"], Cell[125965, 2768, 126017, 2771, 6990, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[252019, 5544, 211, 3, 71, "Section"], Cell[252233, 5549, 5070, 128, 152, "Input"], Cell[257306, 5679, 332, 8, 31, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[257675, 5692, 210, 3, 71, "Section"], Cell[257888, 5697, 9435, 256, 372, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[267360, 5958, 208, 3, 71, "Section"], Cell[267571, 5963, 9445, 256, 372, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[277053, 6224, 333, 6, 71, "Section"], Cell[277389, 6232, 9497, 257, 372, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[286923, 6494, 331, 6, 71, "Section"], Cell[287257, 6502, 8953, 249, 372, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[296247, 6756, 275, 6, 71, "Section"], Cell[296525, 6764, 38200, 820, 1973, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[334762, 7589, 486, 8, 71, "Section"], Cell[335251, 7599, 5237, 149, 292, "Input"], Cell[340491, 7750, 9058, 282, 432, "Input"], Cell[349552, 8034, 5094, 147, 292, "Input"], Cell[354649, 8183, 8834, 278, 432, "Input"] }, Open ]] } ] *) (* End of internal cache information *)