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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      1544,         59]
NotebookOptionsPosition[      1193,         42]
NotebookOutlinePosition[      1472,         56]
CellTagsIndexPosition[      1429,         53]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
To run this file, select all the cells (control-A / cmd-A) and compile \
(shift-enter). Make sure that OurFunctions.nb is in the same directory as \
this file; otherwise, replace the argument of \
\"NotebookEvaluate[\"OurFunctions.nb\"]\" with a path to that file (e.g. \
\"NotebookEvaluate[\"/Users/zstier/Dropbox/AllREUstuff/OurFunctions.nb\"]\").\
\
\>", "Text"],

Cell["NotebookEvaluate[\"OurFunctions.nb\"]", "Input"],

Cell["\<\
coords=ConvertedMcLeod[6];
MatrixForm[coords]\
\>", "Input"],

Cell["MatrixForm[Gram[coords,6-1]]", "Input"],

Cell["Coxeter[coords,6-1]", "Input"],

Cell["GetBianchiStrips[6]", "Input"]
},
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 28, \
2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 375, 7, 70, "Text"],
Cell[936, 29, 54, 0, 70, "Input"],
Cell[993, 31, 70, 3, 70, "Input"],
Cell[1066, 36, 45, 0, 70, "Input"],
Cell[1114, 38, 36, 0, 70, "Input"],
Cell[1153, 40, 36, 0, 70, "Input"]
}
]
*)

(* End of internal cache information *)