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

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

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    167276,       3504]
NotebookOptionsPosition[    162875,       3392]
NotebookOutlinePosition[    163217,       3407]
CellTagsIndexPosition[    163174,       3404]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Framings", "=", 
   RowBox[{"-", 
    RowBox[{"{", 
     RowBox[{"2", ",", "3", ",", "2", ",", "2", ",", "2", ",", "2"}], 
     "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "=", 
   RowBox[{"Length", "[", "Framings", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plumbing", "=", 
  RowBox[{"Graph", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "\[Rule]", "2"}], ",", 
      RowBox[{"2", "\[Rule]", "3"}], ",", 
      RowBox[{"2", "\[Rule]", "4"}], ",", 
      RowBox[{"4", "\[Rule]", "5"}], ",", 
      RowBox[{"4", "\[Rule]", "6"}]}], "}"}], ",", 
    RowBox[{"DirectedEdges", "\[Rule]", "False"}], ",", 
    RowBox[{"VertexWeight", "\[Rule]", "Framings"}], ",", 
    RowBox[{"VertexLabels", "\[Rule]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"i", "\[Rule]", " ", 
        RowBox[{"Framings", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "L"}], "}"}]}], "]"}]}], ",", 
    RowBox[{"GraphLayout", "\[Rule]", "\"\<SpringElectricalEmbedding\>\""}]}],
    "]"}]}]}], "Input",
 CellChangeTimes->{{3.674009060483224*^9, 3.674009067733176*^9}, {
   3.67400933114907*^9, 3.6740093978093777`*^9}, {3.6740095504487534`*^9, 
   3.674009603408955*^9}, {3.674017878409732*^9, 3.6740180008042917`*^9}, {
   3.674018034420874*^9, 3.674018043873226*^9}, {3.6740181599647427`*^9, 
   3.6740181754597692`*^9}, {3.6740198649754133`*^9, 3.67401988051268*^9}, {
   3.6740199651627283`*^9, 3.674020015924849*^9}, {3.674020073401202*^9, 
   3.674020078677791*^9}, {3.674020114717108*^9, 3.674020123718639*^9}, {
   3.67402038358978*^9, 3.6740203896691723`*^9}, {3.674020434976557*^9, 
   3.674020437317402*^9}, {3.6740254661279707`*^9, 3.674025472043743*^9}, {
   3.674025575553988*^9, 3.67402563349269*^9}, {3.674025702388702*^9, 
   3.674025962414402*^9}, {3.6740260373122683`*^9, 3.674026038693022*^9}, {
   3.674026110694642*^9, 3.674026110883357*^9}, {3.6740262668359203`*^9, 
   3.674026282242208*^9}, {3.674945126827654*^9, 3.674945129348299*^9}, 
   3.674945267329893*^9, {3.674945439329486*^9, 3.6749454434319897`*^9}, 
   3.674945896986527*^9, {3.6749466243411713`*^9, 3.67494662481444*^9}, {
   3.67494790461614*^9, 3.674947911289054*^9}, {3.6749479732687283`*^9, 
   3.674947993907172*^9}, {3.674948031034486*^9, 3.6749481166433477`*^9}, {
   3.674948169675806*^9, 3.6749481738977337`*^9}, {3.674948235963784*^9, 
   3.674948265562158*^9}, {3.674948388676169*^9, 3.6749483917106533`*^9}, {
   3.674948464544897*^9, 3.674948494004198*^9}, {3.674948526775339*^9, 
   3.6749485334218063`*^9}, {3.6749489830802193`*^9, 3.674948989936083*^9}, 
   3.674949071361157*^9, {3.67494910481052*^9, 3.6749491244063387`*^9}, {
   3.674949182209939*^9, 3.674949201511024*^9}, {3.674950356514977*^9, 
   3.6749503728436327`*^9}, {3.674950577262525*^9, 3.674950617800585*^9}, {
   3.67495065344829*^9, 3.6749507588704643`*^9}, {3.674950802759251*^9, 
   3.674950811819137*^9}, {3.6749508804443073`*^9, 3.6749508831585703`*^9}, {
   3.674951006948688*^9, 3.674951024880664*^9}, {3.6749510718432703`*^9, 
   3.674951093099228*^9}, {3.674951151264166*^9, 3.6749511584088707`*^9}, {
   3.674951404964941*^9, 3.674951439950554*^9}, {3.674951494310659*^9, 
   3.674951636363584*^9}, {3.6749517638222446`*^9, 3.674951775235075*^9}, {
   3.6749518794056892`*^9, 3.6749518822109222`*^9}, {3.674952191536268*^9, 
   3.674952223701593*^9}, {3.674952899416333*^9, 3.674952917428679*^9}, {
   3.674952960709733*^9, 3.674952992428071*^9}, {3.674953030178035*^9, 
   3.674953033591131*^9}, {3.674953076032156*^9, 3.674953076119759*^9}, {
   3.674953114976047*^9, 3.674953153132341*^9}, {3.674953196280878*^9, 
   3.67495322859118*^9}, {3.674953449993828*^9, 3.674953577469533*^9}, {
   3.674954466129807*^9, 3.6749545149032307`*^9}, {3.674954573281959*^9, 
   3.6749546135819607`*^9}, {3.674954673004641*^9, 3.6749546748724403`*^9}, {
   3.67495472409934*^9, 3.6749547366917887`*^9}, {3.674954768533409*^9, 
   3.674954806382607*^9}, {3.674954850635725*^9, 3.674954874756467*^9}, {
   3.674955054920475*^9, 3.674955068260435*^9}, {3.675002219085311*^9, 
   3.675002243576873*^9}, {3.675002282900546*^9, 3.675002367772747*^9}, {
   3.675002399262241*^9, 3.6750023993694963`*^9}, {3.6750024358007402`*^9, 
   3.675002487630378*^9}, {3.6750100608110533`*^9, 3.675010071329637*^9}, {
   3.675010181830723*^9, 3.6750101976651487`*^9}, {3.675010291831381*^9, 
   3.675010302355706*^9}, {3.675010404899838*^9, 3.675010421189467*^9}, {
   3.675010455506967*^9, 3.6750105136411867`*^9}, {3.6750107390892067`*^9, 
   3.6750107558745327`*^9}, {3.675010970320928*^9, 3.675011010938319*^9}, {
   3.675011050548581*^9, 3.6750110632475023`*^9}, {3.675012073726748*^9, 
   3.6750121117595043`*^9}, {3.675012577344246*^9, 3.675012600712343*^9}, {
   3.675012933880062*^9, 3.675013008532877*^9}, {3.675013051411746*^9, 
   3.6750130638622932`*^9}, {3.675013899201931*^9, 3.6750139694216213`*^9}, {
   3.675521180985878*^9, 3.6755212301335583`*^9}, {3.675521570248745*^9, 
   3.675521572462902*^9}, 3.675521737994254*^9, {3.6755217734067373`*^9, 
   3.675521776340529*^9}, {3.675521885940626*^9, 3.675521886147159*^9}, {
   3.67552195615827*^9, 3.6755219600287647`*^9}, 3.675522703853451*^9, 
   3.675524143820209*^9, {3.6755245201303053`*^9, 3.675524520210104*^9}, {
   3.675525076364059*^9, 3.675525103976041*^9}, {3.675525771613002*^9, 
   3.675525789388031*^9}, 3.675525970517459*^9, {3.675527054597925*^9, 
   3.675527095768283*^9}, {3.676051598813623*^9, 3.676051651304529*^9}, {
   3.67605188267165*^9, 3.676051912391048*^9}, {3.67605196140476*^9, 
   3.676051967262351*^9}, 3.676052038828679*^9, {3.676052084091524*^9, 
   3.676052091142763*^9}, {3.6760521965731583`*^9, 3.6760522315245657`*^9}, {
   3.676052282438308*^9, 3.676052320328361*^9}, {3.676052796303111*^9, 
   3.676052821625677*^9}, {3.676052913924136*^9, 3.676052936918145*^9}, {
   3.682442606771164*^9, 3.682442653225325*^9}, {3.682632744590663*^9, 
   3.6826327446722937`*^9}, {3.682632825984276*^9, 3.682632827821002*^9}, {
   3.682632911171876*^9, 3.68263291356889*^9}, {3.682633025355419*^9, 
   3.682633067206298*^9}, {3.682633106848028*^9, 3.682633108056407*^9}, {
   3.717364743083974*^9, 3.717364787725642*^9}, {3.717375521101264*^9, 
   3.7173755693209486`*^9}, {3.71737592862278*^9, 3.7173759809774714`*^9}, {
   3.717432810024253*^9, 3.717432863582147*^9}, {3.7174329857615614`*^9, 
   3.7174329966971807`*^9}, {3.7174355205106688`*^9, 3.717435535955696*^9}, {
   3.717436543325667*^9, 3.7174365674745092`*^9}, {3.717436689141123*^9, 
   3.7174366934779305`*^9}, {3.7186346069161615`*^9, 
   3.7186346194273834`*^9}, {3.718636147442981*^9, 3.7186361532617908`*^9}, {
   3.7186373886309605`*^9, 3.7186373959005737`*^9}, {3.7186388363457036`*^9, 
   3.7186388487321253`*^9}, {3.71863890835643*^9, 3.718638928698866*^9}, {
   3.7186393544402137`*^9, 3.7186393600406237`*^9}, {3.7186455483671722`*^9, 
   3.718645554310783*^9}, {3.7186460620632753`*^9, 3.718646067148884*^9}, {
   3.718646436122732*^9, 3.7186464412551413`*^9}, {3.7186466827903657`*^9, 
   3.718646688905576*^9}, {3.7251073088321514`*^9, 3.725107338753004*^9}, 
   3.725107436923977*^9, {3.7251075029608927`*^9, 3.725107503007693*^9}, {
   3.725107610647882*^9, 3.725107675684396*^9}, {3.7251077397069087`*^9, 
   3.7251077449797177`*^9}, {3.7251080283956165`*^9, 3.725108039128435*^9}, {
   3.7278334188049483`*^9, 3.7278334354189777`*^9}, {3.855359315009728*^9, 
   3.8553593374613094`*^9}, {3.8553593810815716`*^9, 3.855359383266229*^9}, {
   3.8553595264630013`*^9, 3.855359528522572*^9}, {3.855359627735474*^9, 
   3.855359627819185*^9}, {3.855359702927045*^9, 3.8553597104829893`*^9}, {
   3.8553597580263853`*^9, 3.855359758181451*^9}, 3.855359818959998*^9, 
   3.8553598917859526`*^9, {3.855359968060136*^9, 3.8553599981513977`*^9}, {
   3.8553600313415766`*^9, 3.8553600314022985`*^9}, {3.8553601153923516`*^9, 
   3.8553601154811134`*^9}, {3.8553601589352417`*^9, 
   3.8553601590114045`*^9}, {3.855360195451683*^9, 3.8553601955273795`*^9}},
 FontSize->24,ExpressionUUID->"690be12e-95e9-4792-8e01-c282e6db44a0"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 4, 5, 6}, {
      Null, {{1, 2}, {2, 3}, {2, 4}, {4, 5}, {4, 6}}}, {
      GraphLayout -> "SpringElectricalEmbedding", 
       VertexLabels -> {6 -> -2, 3 -> -2, 5 -> -2, 4 -> -2, 2 -> -3, 1 -> -2},
        VertexWeight -> {-2, -3, -2, -2, -2, -2}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
        {Arrowheads[0.], 
         ArrowBox[{{0.0009668623085330452, 0.}, {0.6940089819729849, 
          0.6471253206164437}}, 0.02709749201092243]}, 
        {Arrowheads[0.], 
         ArrowBox[{{0.6940089819729849, 0.6471253206164437}, {0., 
          1.2942126899950392`}}, 0.02709749201092243]}, 
        {Arrowheads[0.], 
         ArrowBox[{{0.6940089819729849, 0.6471253206164437}, {
          1.8780254095690365`, 0.6472426919135555}}, 0.02709749201092243]}, 
        {Arrowheads[0.], 
         ArrowBox[{{1.8780254095690365`, 0.6472426919135555}, {
          2.5726836240498976`, 1.2927975161983825`}}, 0.02709749201092243]}, 
        {Arrowheads[0.], 
         ArrowBox[{{1.8780254095690365`, 0.6472426919135555}, {
          2.5730609222208987`, 0.002036860743491964}}, 0.02709749201092243]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{0.0009668623085330452, 0.}, 0.02709749201092243], 
         InsetBox[
          RowBox[{"-", "2"}], 
          Offset[{2, 2}, {0.028064354319455476, 0.02709749201092243}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.6940089819729849, 0.6471253206164437}, 
          0.02709749201092243], InsetBox[
          RowBox[{"-", "3"}], 
          Offset[{2, 2}, {0.7211064739839073, 0.6742228126273662}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0., 1.2942126899950392}, 0.02709749201092243], InsetBox[
          RowBox[{"-", "2"}], 
          Offset[{2, 2}, {0.02709749201092243, 1.3213101820059616}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.8780254095690365, 0.6472426919135555}, 
          0.02709749201092243], InsetBox[
          RowBox[{"-", "2"}], 
          Offset[{2, 2}, {1.905122901579959, 0.674340183924478}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{2.5726836240498976, 1.2927975161983825}, 
          0.02709749201092243], InsetBox[
          RowBox[{"-", "2"}], 
          Offset[{2, 2}, {2.59978111606082, 1.3198950082093048}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{2.5730609222208987, 0.002036860743491964}, 
          0.02709749201092243], InsetBox[
          RowBox[{"-", "2"}], 
          Offset[{2, 2}, {2.6001584142318213, 0.029134352754414394}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{3.729943967798687*^9, 3.8553593562734213`*^9, 
  3.8553594980245357`*^9, 3.855359542993948*^9, 3.855359645652878*^9, 
  3.8553597211136045`*^9, 3.8553597757065005`*^9, 3.8553598323019547`*^9, 
  3.855359907248945*^9, 3.8553599795324697`*^9, 3.8553600100695133`*^9, 
  3.855360041437708*^9, 3.8553601267724524`*^9, 3.8553601715019436`*^9, 
  3.8553602063369155`*^9},ExpressionUUID->"21a17438-2082-496c-8391-\
95d3cacc6a21"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VL", "=", 
  RowBox[{"VertexList", "[", "Plumbing", "]"}]}]], "Input",
 CellChangeTimes->{{3.6749543305722513`*^9, 3.67495433894415*^9}},
 FontSize->24,ExpressionUUID->"babc4fd5-3efc-433f-b4be-73decabcf768"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.674954339273198*^9, {3.674954480501494*^9, 3.6749545427225657`*^9}, 
   3.674954616256551*^9, {3.674954676235352*^9, 3.6749546833154078`*^9}, 
   3.674954740105404*^9, {3.674954779665674*^9, 3.674954808499288*^9}, {
   3.674954852197488*^9, 3.674954884645299*^9}, 3.674955071961076*^9, 
   3.6750022518161783`*^9, {3.675002383404632*^9, 3.6750024069501257`*^9}, {
   3.675002476499592*^9, 3.675002497435627*^9}, 3.675010078747933*^9, {
   3.675010122028474*^9, 3.675010127188073*^9}, 3.675010203807177*^9, 
   3.675010309261929*^9, {3.675010361681837*^9, 3.675010371952297*^9}, 
   3.6750104257780733`*^9, 3.6750104703111277`*^9, 3.675010516358198*^9, 
   3.675010645151783*^9, 3.675010759451429*^9, 3.675010980851557*^9, {
   3.675011013826084*^9, 3.6750110234562407`*^9}, 3.675011066145185*^9, 
   3.675011276739143*^9, 3.675012117321307*^9, 3.675012182869144*^9, 
   3.6750122885777807`*^9, 3.67501260486902*^9, {3.675012957503037*^9, 
   3.675013011309491*^9}, 3.675013070955724*^9, 3.6750131080681963`*^9, 
   3.675013914304966*^9, 3.675013975243855*^9, 3.6750946387850447`*^9, 
   3.675095127659843*^9, {3.675521199086912*^9, 3.6755212340002337`*^9}, 
   3.675521416836925*^9, 3.675521581240484*^9, 3.6755217399172487`*^9, 
   3.675521799626135*^9, {3.675521888532907*^9, 3.675521896435585*^9}, 
   3.6755219630894403`*^9, 3.675522706822989*^9, 3.675524146146299*^9, 
   3.675524326468383*^9, 3.6755245266933537`*^9, {3.675525080523974*^9, 
   3.675525106807867*^9}, {3.675525774578483*^9, 3.675525791894815*^9}, 
   3.6755259749389963`*^9, {3.67552705805505*^9, 3.675527109176083*^9}, 
   3.6760516156184893`*^9, 3.676051655115584*^9, {3.676051876984479*^9, 
   3.676051969507759*^9}, 3.676052094784861*^9, {3.6760522065442257`*^9, 
   3.676052244243924*^9}, {3.676052296735071*^9, 3.676052323326668*^9}, {
   3.676052807592979*^9, 3.67605283875342*^9}, {3.676052928562717*^9, 
   3.676052940162051*^9}, 3.682442624153367*^9, 3.682632746429388*^9, 
   3.6826328297514343`*^9, {3.68263291627673*^9, 3.6826329500670013`*^9}, 
   3.682633071272249*^9, {3.682633110391*^9, 3.682633130406106*^9}, 
   3.717364732312619*^9, 3.717364799557323*^9, 3.7173754945178175`*^9, 
   3.7173755867929792`*^9, 3.7173759991983037`*^9, 3.717432874907767*^9, 
   3.717433038318054*^9, 3.717435557125933*^9, 3.7174355916019936`*^9, 
   3.717435636592473*^9, 3.7174365972705617`*^9, 3.717436710747161*^9, 
   3.718634623810991*^9, 3.7186362787016115`*^9, 3.718637413435004*^9, 
   3.7186388704015636`*^9, 3.7186389551721125`*^9, 3.7186390325170484`*^9, 
   3.718639374502849*^9, 3.7186455598799925`*^9, 3.7186460861653175`*^9, 
   3.7186464591171727`*^9, 3.718646754425691*^9, 3.725107346038217*^9, 
   3.7251074540996065`*^9, 3.7251075175157185`*^9, 3.725107681331606*^9, 
   3.7251077760081725`*^9, 3.7251080551964636`*^9, 3.72783344262619*^9, 
   3.729943910159606*^9, 3.729943967888687*^9, 3.8553593563985844`*^9, 
   3.8553594982824554`*^9, 3.855359543050565*^9, 3.855359645711336*^9, 
   3.8553597211754646`*^9, 3.855359775772169*^9, 3.8553598323607683`*^9, 
   3.8553599073055696`*^9, 3.8553599795899878`*^9, 3.8553600101299944`*^9, 
   3.8553600415068274`*^9, 3.8553601268408003`*^9, 3.8553601715721955`*^9, 
   3.8553602063915215`*^9},
 FontSize->24,ExpressionUUID->"e64b406b-5410-4a7b-8a85-316cc85834ee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"M", "=", 
   RowBox[{"AdjacencyMatrix", "[", "Plumbing", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"M", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "i"}], "]"}], "]"}], "=", 
     RowBox[{"Framings", "[", 
      RowBox[{"[", 
       RowBox[{"VL", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "L"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"M", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.674018216775732*^9, 3.674018235444175*^9}, 
   3.674018277218862*^9, {3.674018410788516*^9, 3.674018439845911*^9}, {
   3.6749542014360733`*^9, 3.67495421744706*^9}, 3.674954343344696*^9},
 FontSize->24,ExpressionUUID->"4a314965-f57c-4fd3-9bd6-a25f64ebe5f0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "2"}], "1", "0", "0", "0", "0"},
     {"1", 
      RowBox[{"-", "3"}], "1", "1", "0", "0"},
     {"0", "1", 
      RowBox[{"-", "2"}], "0", "0", "0"},
     {"0", "1", "0", 
      RowBox[{"-", "2"}], "1", "1"},
     {"0", "0", "0", "1", 
      RowBox[{"-", "2"}], "0"},
     {"0", "0", "0", "1", "0", 
      RowBox[{"-", "2"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[
   SparseArray[
    Automatic, {6, 6}, 0, {
     1, {{0, 2, 6, 8, 12, 14, 16}, {{2}, {1}, {1}, {3}, {4}, {2}, {2}, {3}, {
       2}, {5}, {6}, {4}, {4}, {5}, {4}, {6}}}, {1, -2, 1, 1, 1, -3, 1, -2, 1,
       1, 1, -2, 1, -2, 1, -2}}]]]]], "Output",
 CellChangeTimes->{
  3.674018235814756*^9, 3.674018278599587*^9, 3.674018440550913*^9, {
   3.674019868373945*^9, 3.674019886616107*^9}, 3.674020025475398*^9, 
   3.674020082721883*^9, 3.674020128949073*^9, 3.674020165380653*^9, 
   3.674020394140852*^9, {3.674020442806491*^9, 3.67402045733034*^9}, 
   3.674025477674828*^9, 3.674025676365549*^9, 3.674025719800788*^9, 
   3.6740257630929413`*^9, {3.674025800277931*^9, 3.674025821466679*^9}, 
   3.6740259656431093`*^9, 3.674026041884577*^9, 3.6740261168978643`*^9, 
   3.6740262853072357`*^9, 3.674944744635607*^9, 3.674945147320216*^9, 
   3.674945270582686*^9, 3.67494549515722*^9, 3.674945578631073*^9, 
   3.674946591249988*^9, {3.674946627471767*^9, 3.674946633965992*^9}, 
   3.674947913669615*^9, {3.674947979747772*^9, 3.6749480000632467`*^9}, {
   3.674948050264778*^9, 3.674948080258882*^9}, 3.674948119373293*^9, 
   3.674948176555664*^9, {3.67494824083503*^9, 3.6749482678882732`*^9}, 
   3.6749483948871803`*^9, 3.674948498292959*^9, 3.6749485390491543`*^9, 
   3.674949074043365*^9, 3.6749491283065443`*^9, {3.674949189451417*^9, 
   3.674949215809926*^9}, {3.674950362003784*^9, 3.674950374933963*^9}, {
   3.674950504541884*^9, 3.674950520670689*^9}, {3.674950591769239*^9, 
   3.674950620336946*^9}, 3.6749506799848747`*^9, {3.674950717992339*^9, 
   3.674950761224943*^9}, {3.674950814530847*^9, 3.6749508386704063`*^9}, 
   3.67495088726264*^9, 3.6749510275319033`*^9, {3.6749510848286858`*^9, 
   3.6749510955432377`*^9}, {3.6749511612213497`*^9, 3.674951172036662*^9}, 
   3.674951540938857*^9, {3.674951577657732*^9, 3.674951655611486*^9}, {
   3.674951777518722*^9, 3.674951784514653*^9}, {3.674951883675846*^9, 
   3.6749518903576*^9}, 3.674952228259922*^9, 3.674952918879826*^9, 
   3.6749529951540213`*^9, 3.6749530361633*^9, 3.674953082268093*^9, 
   3.674953155875267*^9, {3.674953213962017*^9, 3.674953231384523*^9}, {
   3.674953462472115*^9, 3.674953483092441*^9}, {3.674953519616824*^9, 
   3.674953529262496*^9}, 3.674953584239978*^9, 3.674953760991387*^9, 
   3.6749542746573544`*^9, 3.67495434385292*^9, {3.674954488192593*^9, 
   3.6749545427759743`*^9}, 3.674954616309493*^9, {3.6749546770319567`*^9, 
   3.674954683361774*^9}, 3.6749547401617107`*^9, {3.6749547804946136`*^9, 
   3.674954809961361*^9}, {3.6749548533145313`*^9, 3.67495488467588*^9}, 
   3.6749550720071707`*^9, 3.6750022518723593`*^9, {3.675002383457451*^9, 
   3.6750024070040627`*^9}, {3.67500247728587*^9, 3.675002497489283*^9}, 
   3.675010078775379*^9, {3.675010122079691*^9, 3.6750101272385178`*^9}, 
   3.6750102038536253`*^9, 3.675010309291621*^9, {3.675010361730432*^9, 
   3.675010372003079*^9}, 3.6750104258313503`*^9, 3.675010470341218*^9, 
   3.67501051638964*^9, 3.675010645201302*^9, 3.675010759478142*^9, 
   3.675010980903982*^9, {3.675011014974468*^9, 3.675011023516119*^9}, 
   3.675011066199839*^9, 3.675011276788797*^9, 3.675012117352991*^9, 
   3.675012182921509*^9, 3.675012288628481*^9, 3.675012604901442*^9, {
   3.6750129584572697`*^9, 3.675013011364194*^9}, 3.675013071008977*^9, 
   3.675013108116617*^9, 3.6750139143390493`*^9, 3.67501397529839*^9, 
   3.675094638856341*^9, 3.675095127725912*^9, {3.675521200389182*^9, 
   3.675521234030587*^9}, 3.675521416891767*^9, 3.675521581272225*^9, 
   3.675521739941332*^9, 3.6755217996513853`*^9, {3.6755218894537487`*^9, 
   3.675521896466332*^9}, 3.6755219631233997`*^9, 3.675522706852599*^9, 
   3.6755241461865664`*^9, 3.675524326500208*^9, 3.675524526723171*^9, {
   3.675525080553648*^9, 3.6755251068298483`*^9}, {3.675525774643117*^9, 
   3.675525791923971*^9}, 3.675525974970213*^9, {3.67552705808582*^9, 
   3.6755271092079897`*^9}, 3.676051615648993*^9, 3.6760516551641617`*^9, {
   3.676051877032045*^9, 3.6760519695548973`*^9}, 3.676052094805071*^9, {
   3.676052206593349*^9, 3.676052244265401*^9}, {3.676052296781685*^9, 
   3.676052323371914*^9}, {3.676052826093158*^9, 3.6760528387733717`*^9}, {
   3.6760529290320663`*^9, 3.676052940202474*^9}, 3.682442624187681*^9, 
   3.682632747284205*^9, 3.6826328309223337`*^9, {3.6826329162978992`*^9, 
   3.682632950118909*^9}, 3.682633072335669*^9, {3.682633111192587*^9, 
   3.682633130446712*^9}, 3.717364732336784*^9, 3.717364799589057*^9, 
   3.7173754945802174`*^9, 3.717375586839779*^9, 3.717375999245104*^9, 
   3.7174328749389668`*^9, 3.717433038364854*^9, 3.717435557157133*^9, 
   3.717435591648794*^9, 3.7174356366236725`*^9, 3.7174365973017616`*^9, 
   3.7174367107783613`*^9, 3.718634623857791*^9, 3.718636278732811*^9, 
   3.7186374134818044`*^9, 3.7186388704483633`*^9, 3.7186389552033124`*^9, 
   3.7186390325638485`*^9, 3.7186393745496492`*^9, 3.718645559926793*^9, 
   3.7186460862121177`*^9, 3.7186464591483727`*^9, 3.7186467544724913`*^9, 
   3.725107346085017*^9, 3.725107454130807*^9, 3.7251075175469184`*^9, 
   3.7251076813628063`*^9, 3.7251077760393724`*^9, 3.7251080552276635`*^9, 
   3.72783344267299*^9, 3.7299439102196064`*^9, 3.7299439679286876`*^9, 
   3.855359356423705*^9, 3.8553594983004704`*^9, 3.855359543065612*^9, 
   3.8553596457304754`*^9, 3.8553597211894445`*^9, 3.855359775788513*^9, 
   3.8553598323778706`*^9, 3.8553599073210363`*^9, 3.8553599796074486`*^9, 
   3.8553600101501346`*^9, 3.8553600415243273`*^9, 3.855360126857591*^9, 
   3.8553601715878363`*^9, 3.855360206408335*^9},
 FontSize->24,ExpressionUUID->"755504a7-81d8-494e-a558-e64d17b70c51"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p", "=", 
  RowBox[{"Abs", "[", 
   RowBox[{"Det", "[", "M", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.673475170814592*^9, 3.673475175713036*^9}, {
  3.673475222831002*^9, 3.673475274692037*^9}, {3.673475372384465*^9, 
  3.673475390062554*^9}, {3.6737438830707006`*^9, 3.673743888458829*^9}, {
  3.6738006874335318`*^9, 3.673800691440117*^9}},
 FontSize->24,ExpressionUUID->"484f9e9d-e246-4a39-afce-8ea46385a727"],

Cell[BoxData["16"], "Output",
 CellChangeTimes->{{3.673475275130926*^9, 3.6734752958063498`*^9}, {
   3.673475375116153*^9, 3.67347539519601*^9}, 3.6734764250086937`*^9, 
   3.6734764810745783`*^9, 3.673477430218459*^9, {3.6734774699089537`*^9, 
   3.673477483927853*^9}, 3.6734775173995457`*^9, {3.673477557444929*^9, 
   3.673477604350967*^9}, {3.673477887079267*^9, 3.673477908867816*^9}, 
   3.673477987912945*^9, 3.6734780209353647`*^9, {3.6734780587636757`*^9, 
   3.6734781183001738`*^9}, 3.673478212683837*^9, 3.6734782613615103`*^9, 
   3.673478328141683*^9, {3.673478384413515*^9, 3.6734784214906397`*^9}, 
   3.673478454457515*^9, {3.6734785262944117`*^9, 3.67347854182869*^9}, 
   3.673478604280366*^9, {3.6734786631760902`*^9, 3.673478699149563*^9}, {
   3.6734787560168056`*^9, 3.673478779560416*^9}, {3.6734788276221437`*^9, 
   3.673478854659981*^9}, {3.673478914844694*^9, 3.6734789219132557`*^9}, 
   3.673479378182104*^9, 3.673479454470461*^9, {3.6734794898552303`*^9, 
   3.673479513522187*^9}, {3.67347958759501*^9, 3.673479609913537*^9}, 
   3.673479987102355*^9, {3.6734800843825903`*^9, 3.67348009163265*^9}, {
   3.673480134614522*^9, 3.673480145519683*^9}, {3.673480200945262*^9, 
   3.673480225371608*^9}, 3.673480300585864*^9, 3.673480560835004*^9, 
   3.673480612704771*^9, 3.673480670665778*^9, 3.6737045137920732`*^9, {
   3.673704592378661*^9, 3.6737046510085173`*^9}, {3.673704718353045*^9, 
   3.6737048860186367`*^9}, {3.673705030974531*^9, 3.673705050950116*^9}, {
   3.673705089765491*^9, 3.673705137854957*^9}, {3.673705194799909*^9, 
   3.6737052301811953`*^9}, 3.673705263587573*^9, {3.673705363343191*^9, 
   3.673705375842664*^9}, 3.673705435354536*^9, {3.673705512758535*^9, 
   3.6737055178476067`*^9}, {3.673705556222183*^9, 3.673705628958099*^9}, 
   3.673743888822051*^9, {3.673744208124621*^9, 3.673744231465561*^9}, 
   3.673744266292272*^9, 3.673744539638361*^9, 3.673757481600685*^9, {
   3.673758039465056*^9, 3.673758043413864*^9}, 3.6737582126440153`*^9, 
   3.673758274887597*^9, 3.673758315721562*^9, {3.673758588655242*^9, 
   3.67375863007648*^9}, 3.673758686520544*^9, {3.6737590851842813`*^9, 
   3.673759134964527*^9}, {3.67375955033337*^9, 3.673759555135281*^9}, {
   3.673759874149413*^9, 3.67375989122649*^9}, 3.673769133342101*^9, 
   3.673769430513489*^9, 3.6738002982038116`*^9, 3.673800366741899*^9, {
   3.673800601282176*^9, 3.673800616563208*^9}, {3.673800672262978*^9, 
   3.673800695134297*^9}, 3.673800757423397*^9, 3.673800839421657*^9, {
   3.673800878970408*^9, 3.673800883154497*^9}, 3.67380095047985*^9, 
   3.673800987917889*^9, 3.673917558875223*^9, 3.674007638791604*^9, 
   3.674007822286672*^9, {3.6740078626595163`*^9, 3.674007885804056*^9}, 
   3.6740080110665913`*^9, 3.674008191683848*^9, 3.6740082454265137`*^9, 
   3.67401884538547*^9, {3.674019868551467*^9, 3.674019886759699*^9}, 
   3.674020025607284*^9, 3.67402008283768*^9, 3.674020132835116*^9, 
   3.674020165525297*^9, 3.674020394253152*^9, {3.674020453519499*^9, 
   3.674020457447798*^9}, 3.674025477793167*^9, 3.6740256765033283`*^9, 
   3.6740257199161043`*^9, 3.674025763225655*^9, {3.6740258004384727`*^9, 
   3.674025821572102*^9}, 3.6740259657876062`*^9, 3.674026042032176*^9, 
   3.674026117037839*^9, 3.6740262854500313`*^9, 3.6749447447648*^9, 
   3.6749451474313517`*^9, 3.67494550509577*^9, 3.674945578778481*^9, 
   3.6749465913824577`*^9, 3.674946634085443*^9, 3.674947913787703*^9, {
   3.674947983193345*^9, 3.674948000214582*^9}, 3.674948050374518*^9, 
   3.674948080410952*^9, 3.6749481194842653`*^9, 3.674948176697134*^9, {
   3.6749482409660254`*^9, 3.674948268004237*^9}, 3.674948395017959*^9, 
   3.67494849840873*^9, 3.674948539201232*^9, 3.674949074162318*^9, 
   3.6749491312816477`*^9, {3.674949192991187*^9, 3.674949215958757*^9}, {
   3.674950366389533*^9, 3.674950377956612*^9}, {3.674950504660222*^9, 
   3.674950520813896*^9}, {3.674950591900036*^9, 3.6749506204813213`*^9}, 
   3.674950680105454*^9, {3.6749507181164217`*^9, 3.674950761370308*^9}, {
   3.674950814650178*^9, 3.674950838786819*^9}, 3.6749508874156017`*^9, 
   3.674951027650909*^9, {3.6749510849814463`*^9, 3.674951095684812*^9}, {
   3.67495116445198*^9, 3.6749511721540194`*^9}, 3.674951541070073*^9, {
   3.674951577775374*^9, 3.6749516557283783`*^9}, {3.674951780333756*^9, 
   3.6749517846656857`*^9}, {3.6749518870722218`*^9, 3.674951890504294*^9}, 
   3.6749522284122753`*^9, 3.674952922205216*^9, 3.6749529982537403`*^9, 
   3.6749530398001432`*^9, 3.6749530875922728`*^9, 3.674953158810607*^9, {
   3.674953217089013*^9, 3.6749532345004263`*^9}, {3.674953465142969*^9, 
   3.674953486777808*^9}, 3.674953532407535*^9, 3.6749535949337*^9, 
   3.674954278912426*^9, {3.674954491985664*^9, 3.674954543008525*^9}, 
   3.674954616453992*^9, {3.6749546800572777`*^9, 3.674954683511475*^9}, 
   3.674954740306542*^9, {3.674954783721341*^9, 3.674954884718287*^9}, 
   3.674955072061393*^9, 3.675002251921047*^9, {3.675002383508956*^9, 
   3.6750024070528927`*^9}, {3.675002478097514*^9, 3.675002497539268*^9}, 
   3.6750100788159227`*^9, {3.675010122128685*^9, 3.67501012729436*^9}, 
   3.675010203904557*^9, 3.675010309335001*^9, {3.675010361780024*^9, 
   3.675010372045662*^9}, 3.675010425882902*^9, 3.675010470381144*^9, 
   3.6750105164282923`*^9, 3.6750106452514563`*^9, 3.675010759524166*^9, 
   3.6750109809546022`*^9, {3.675011016077894*^9, 3.675011023564971*^9}, 
   3.675011066249235*^9, 3.675011276838625*^9, 3.6750121173929234`*^9, 
   3.675012182971859*^9, 3.675012288677836*^9, 3.67501260493915*^9, {
   3.675012959795644*^9, 3.675013011413453*^9}, 3.6750130710571127`*^9, 
   3.6750131081678267`*^9, 3.675013914393153*^9, 3.6750139753460703`*^9, 
   3.675094638874303*^9, 3.6750951277411346`*^9, {3.675521201869419*^9, 
   3.675521234073498*^9}, 3.675521416940132*^9, 3.675521581304042*^9, 
   3.675521739964093*^9, 3.67552179965541*^9, {3.675521890427127*^9, 
   3.675521896493823*^9}, 3.675521963149749*^9, 3.6755227068771544`*^9, 
   3.675524146212089*^9, 3.675524326530415*^9, 3.675524526746243*^9, {
   3.675525080557199*^9, 3.675525106833201*^9}, {3.675525774646747*^9, 
   3.6755257919278708`*^9}, 3.675525974999524*^9, {3.6755270580897017`*^9, 
   3.675527109236249*^9}, 3.676051615665661*^9, 3.676051655212027*^9, {
   3.676051877150916*^9, 3.676051969599595*^9}, 3.676052094838231*^9, 
   3.676052206638262*^9, {3.6760522368361387`*^9, 3.676052244314599*^9}, {
   3.6760522968306723`*^9, 3.676052323408461*^9}, 3.6760528388165903`*^9, {
   3.676052929058949*^9, 3.676052940253396*^9}, 3.682442624220854*^9, 
   3.6826327481151648`*^9, 3.68263283212033*^9, {3.682632916338787*^9, 
   3.682632950161652*^9}, 3.682633073114087*^9, {3.682633112055519*^9, 
   3.682633130494779*^9}, 3.7173647323620777`*^9, 3.7173647996161327`*^9, 
   3.717375494627017*^9, 3.7173755868709793`*^9, 3.7173759992763042`*^9, 
   3.7174328749857674`*^9, 3.7174330383960543`*^9, 3.7174355571883335`*^9, 
   3.717435591679994*^9, 3.717435636654873*^9, 3.7174365973329616`*^9, 
   3.717436710809561*^9, 3.718634623873391*^9, 3.7186362787640114`*^9, 
   3.718637413497404*^9, 3.7186388704639635`*^9, 3.7186389552345123`*^9, 
   3.7186390325794487`*^9, 3.718639374580849*^9, 3.7186455599735928`*^9, 
   3.7186460862433176`*^9, 3.718646459179573*^9, 3.7186467544880915`*^9, 
   3.725107346116217*^9, 3.725107454146407*^9, 3.7251075175781183`*^9, 
   3.7251076813940063`*^9, 3.7251077760705724`*^9, 3.7251080552588634`*^9, 
   3.7278334427041903`*^9, 3.729943910249606*^9, 3.7299439679486876`*^9, 
   3.8553593564556437`*^9, 3.855359498325742*^9, 3.85535954795024*^9, 
   3.855359645748969*^9, 3.8553597212131834`*^9, 3.855359775805683*^9, 
   3.8553598324040265`*^9, 3.8553599073452573`*^9, 3.8553599796305094`*^9, 
   3.855360010167065*^9, 3.8553600415381885`*^9, 3.855360126880042*^9, 
   3.855360171615078*^9, 3.8553602064318385`*^9},
 FontSize->24,ExpressionUUID->"2a67a8aa-1206-4516-b760-b68d08be7ea4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Delta", "=", 
  RowBox[{
   RowBox[{"VertexDegree", "[", "Plumbing", "]"}], "-", "2"}]}]], "Input",
 CellChangeTimes->{{3.673744646733184*^9, 3.673744660192181*^9}, {
  3.673744727985313*^9, 3.673744788610017*^9}, {3.673757418596175*^9, 
  3.6737574388456306`*^9}, {3.674018723354516*^9, 3.674018733607572*^9}},
 FontSize->24,ExpressionUUID->"70c03717-9a6a-4476-b7ce-e92fef772f09"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", "1", ",", 
   RowBox[{"-", "1"}], ",", "1", ",", 
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.674018733993424*^9, {3.6740198684522*^9, 3.674019886662538*^9}, 
   3.674020025511052*^9, 3.6740200827439327`*^9, 3.674020130293777*^9, 
   3.674020165429172*^9, 3.6740203941637497`*^9, {3.674020444639414*^9, 
   3.674020457352553*^9}, 3.674025477696018*^9, 3.674025676418185*^9, 
   3.6740257198233337`*^9, 3.6740257631385727`*^9, {3.67402580035362*^9, 
   3.674025821509625*^9}, 3.674025965692971*^9, 3.674026041931007*^9, 
   3.6740261169484463`*^9, 3.6740262853582573`*^9, 3.674944744681239*^9, 
   3.67494514736355*^9, 3.6749455030729923`*^9, 3.6749455786766987`*^9, 
   3.6749465913002*^9, {3.674946628443181*^9, 3.6749466339868183`*^9}, 
   3.674947913705851*^9, {3.6749479811889*^9, 3.6749480001151857`*^9}, 
   3.6749480503098097`*^9, 3.6749480803100643`*^9, 3.67494811939581*^9, 
   3.67494817660296*^9, {3.674948240882291*^9, 3.674948267908948*^9}, 
   3.674948394934655*^9, 3.674948498314844*^9, 3.6749485391011267`*^9, 
   3.6749490740643673`*^9, 3.674949129287981*^9, {3.6749491906077642`*^9, 
   3.674949215858367*^9}, {3.67495036328824*^9, 3.674950376001787*^9}, {
   3.6749505045675993`*^9, 3.6749505207184763`*^9}, {3.6749505918051987`*^9, 
   3.674950620381246*^9}, 3.6749506800128727`*^9, {3.674950718013999*^9, 
   3.674950761265521*^9}, {3.674950814552676*^9, 3.674950838694022*^9}, 
   3.674950887314744*^9, 3.674951027556353*^9, {3.67495108490972*^9, 
   3.674951095584476*^9}, {3.674951162446917*^9, 3.67495117206085*^9}, 
   3.674951540976947*^9, {3.6749515776773167`*^9, 3.674951655632804*^9}, {
   3.674951778438998*^9, 3.674951784563821*^9}, {3.6749518846468973`*^9, 
   3.674951890406933*^9}, 3.674952228312133*^9, 3.674952920401232*^9, 
   3.674952996150063*^9, 3.674953037490066*^9, 3.674953083317575*^9, 
   3.674953156900691*^9, {3.674953214774951*^9, 3.674953232351282*^9}, {
   3.674953463354075*^9, 3.6749534844666033`*^9}, {3.674953520756506*^9, 
   3.6749535304403543`*^9}, 3.674953592619779*^9, 3.674954277038344*^9, {
   3.674954489213142*^9, 3.674954542827868*^9}, 3.674954616358815*^9, {
   3.674954677918355*^9, 3.67495468341364*^9}, 3.6749547402093487`*^9, {
   3.6749547816913223`*^9, 3.674954811300671*^9}, {3.674954843834045*^9, 
   3.674954884769644*^9}, 3.674955072111611*^9, 3.675002251970949*^9, {
   3.675002383558079*^9, 3.675002407102666*^9}, 3.675002497589072*^9, 
   3.6750100788668947`*^9, {3.675010122177816*^9, 3.675010127336762*^9}, 
   3.675010203955257*^9, 3.6750103093829727`*^9, {3.675010361829487*^9, 
   3.67501037209566*^9}, 3.675010425930958*^9, 3.675010470429337*^9, 
   3.675010516470497*^9, 3.6750106452965107`*^9, 3.675010759571539*^9, 
   3.67501098100226*^9, 3.6750110236139936`*^9, 3.675011066300084*^9, 
   3.6750112768891706`*^9, 3.675012117442013*^9, 3.675012183021207*^9, 
   3.675012288727414*^9, 3.675012604988371*^9, {3.6750129815520697`*^9, 
   3.675013011464044*^9}, 3.67501307110708*^9, 3.675013108217534*^9, 
   3.6750139144418707`*^9, 3.675013975390147*^9, 3.675094638945806*^9, 
   3.675095127758533*^9, {3.675521204954208*^9, 3.675521234104466*^9}, 
   3.6755214169440823`*^9, 3.6755215813418093`*^9, 3.6755217399866753`*^9, 
   3.675521799680875*^9, {3.6755218921057873`*^9, 3.6755218965281467`*^9}, 
   3.675521963176424*^9, 3.675522706904306*^9, 3.675524146237966*^9, 
   3.67552432655796*^9, 3.6755245267696943`*^9, {3.675525080579397*^9, 
   3.6755251068534803`*^9}, {3.6755257746687737`*^9, 3.675525791949871*^9}, 
   3.6755259750488853`*^9, {3.675527058112632*^9, 3.6755271092647123`*^9}, 
   3.676051615716288*^9, 3.676051655246118*^9, {3.67605187720128*^9, 
   3.6760519696390123`*^9}, 3.676052094864749*^9, 3.676052206675004*^9, {
   3.6760522379710207`*^9, 3.676052244365089*^9}, {3.67605229688109*^9, 
   3.676052323453417*^9}, 3.6760528388497877`*^9, {3.676052929128623*^9, 
   3.676052940306225*^9}, 3.682442624254191*^9, {3.682632916372163*^9, 
   3.682632950206182*^9}, {3.682633115154134*^9, 3.6826331305289793`*^9}, 
   3.7173647323881807`*^9, 3.7173647996444607`*^9, 3.7173754946738176`*^9, 
   3.7173755869177794`*^9, 3.7173759993075037`*^9, 3.7174328750169673`*^9, 
   3.717433038427254*^9, 3.7174355572039337`*^9, 3.7174355917267942`*^9, 
   3.717435636670473*^9, 3.7174365973485613`*^9, 3.717436710840761*^9, 
   3.718634623904591*^9, 3.7186362787952113`*^9, 3.7186374135286045`*^9, 
   3.718638870495164*^9, 3.7186389552657127`*^9, 3.718639032610648*^9, 
   3.718639374612049*^9, 3.718645559989193*^9, 3.718646086258918*^9, 
   3.7186464592107725`*^9, 3.718646754519292*^9, 3.725107346147417*^9, 
   3.725107454177607*^9, 3.7251075176093187`*^9, 3.725107681425206*^9, 
   3.7251077761017723`*^9, 3.7251080552744637`*^9, 3.7278334427197905`*^9, 
   3.729943910279606*^9, 3.7299439679786873`*^9, 3.8553593564761486`*^9, 
   3.85535949835242*^9, 3.855359548257702*^9, 3.8553596457695107`*^9, 
   3.8553597212345686`*^9, 3.8553597758413854`*^9, 3.855359832429085*^9, 
   3.855359907366955*^9, 3.855359979647069*^9, 3.8553600101964593`*^9, 
   3.855360041574086*^9, 3.855360126900038*^9, 3.855360171634761*^9, 
   3.8553602064508595`*^9},
 FontSize->24,ExpressionUUID->"0805e7f9-c2a1-4a05-9762-e91e24a89ab9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Eigenvalues", "[", "M", "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.676051736684229*^9, 3.6760517484892397`*^9}},
 FontSize->24,ExpressionUUID->"f8dce117-d455-4658-85e4-f09379d03ab8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "4.438283239402897`"}], ",", 
   RowBox[{"-", "3.1385642651101726`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "1.179750749346998`"}], ",", 
   RowBox[{"-", "0.2434017461399326`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6760517407909517`*^9, 3.676051748855611*^9}, {
   3.67605187724564*^9, 3.676051969686285*^9}, 3.676052094884128*^9, 
   3.676052206725267*^9, {3.676052239355915*^9, 3.676052244414248*^9}, {
   3.676052296928561*^9, 3.676052323489143*^9}, 3.6760528388819036`*^9, {
   3.676052929179441*^9, 3.676052940355185*^9}, 3.682442624285972*^9, {
   3.682632916404612*^9, 3.682632950239933*^9}, {3.682633115200732*^9, 
   3.682633130580217*^9}, 3.7173647324086037`*^9, 3.717364799675645*^9, 
   3.7173754947518177`*^9, 3.7173755869489794`*^9, 3.7173759993543043`*^9, 
   3.717432875079367*^9, 3.7174330384896545`*^9, 3.7174355572507334`*^9, 
   3.717435591789194*^9, 3.717435636732873*^9, 3.717436597395362*^9, 
   3.717436710871961*^9, 3.718634623951391*^9, 3.7186362788264112`*^9, 
   3.7186374135754046`*^9, 3.718638870573164*^9, 3.718638955312513*^9, 
   3.7186390326418486`*^9, 3.7186393746588492`*^9, 3.718645560067193*^9, 
   3.7186460863213177`*^9, 3.718646459273173*^9, 3.7186467545816917`*^9, 
   3.725107346194217*^9, 3.725107454208807*^9, 3.725107517640518*^9, 
   3.7251076814720063`*^9, 3.725107776148573*^9, 3.7251080553212633`*^9, 
   3.72783344276659*^9, 3.7299439103396063`*^9, 3.7299439680086875`*^9, 
   3.8553593564934177`*^9, 3.855359498378067*^9, 3.855359548285409*^9, 
   3.855359645821399*^9, 3.8553597212668314`*^9, 3.855359775861183*^9, 
   3.8553598324629345`*^9, 3.8553599073900833`*^9, 3.855359979672617*^9, 
   3.8553600102183256`*^9, 3.85536004159697*^9, 3.8553601269244413`*^9, 
   3.8553601716555614`*^9, 3.8553602064710264`*^9},
 FontSize->24,ExpressionUUID->"d6837a91-dbcd-4856-bccc-743dc2052b49"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NegativeSemidefiniteMatrixQ", "[", "M", "]"}]], "Input",
 CellChangeTimes->{{3.674018777990944*^9, 3.674018806691334*^9}, {
  3.676052058750503*^9, 3.6760520600838118`*^9}},
 FontSize->24,ExpressionUUID->"b5effe4d-7c3c-4ed1-8afc-5f868a4a8db3"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.674018807760832*^9, {3.674019868501301*^9, 3.67401988671319*^9}, 
   3.674020025561932*^9, 3.674020082785603*^9, 3.67402013161348*^9, 
   3.6740201654765882`*^9, 3.6740203942083263`*^9, {3.674020445945416*^9, 
   3.674020457398458*^9}, 3.674025477743423*^9, 3.6740256764496317`*^9, 
   3.674025719870441*^9, 3.6740257631756277`*^9, {3.674025800392647*^9, 
   3.674025821536538*^9}, 3.674025965735985*^9, 3.674026041980904*^9, 
   3.6740261169792852`*^9, 3.6740262854070683`*^9, 3.6749447447326*^9, 
   3.674945147398192*^9, 3.6749455039983473`*^9, 3.674945578728125*^9, 
   3.674946591348165*^9, {3.674946629656616*^9, 3.674946634035838*^9}, 
   3.6749479137539387`*^9, {3.674947982095799*^9, 3.67494800016472*^9}, 
   3.674948050343823*^9, 3.6749480803601913`*^9, 3.674948119438601*^9, 
   3.674948176650141*^9, {3.6749482409327183`*^9, 3.674948267950479*^9}, 
   3.674948394981123*^9, 3.67494849835606*^9, 3.6749485391480703`*^9, 
   3.674949074115138*^9, 3.6749491301874533`*^9, {3.67494919164543*^9, 
   3.674949215907173*^9}, {3.674950364473113*^9, 3.6749503769981747`*^9}, {
   3.6749505046105537`*^9, 3.67495052076371*^9}, {3.6749505918544703`*^9, 
   3.674950620424418*^9}, 3.674950680054881*^9, {3.674950718065597*^9, 
   3.6749507613173523`*^9}, {3.6749508145992517`*^9, 3.674950838736655*^9}, 
   3.6749508873644342`*^9, 3.67495102759662*^9, {3.6749510849360447`*^9, 
   3.6749510956330347`*^9}, {3.6749511634314213`*^9, 3.674951172104617*^9}, 
   3.674951541026404*^9, {3.6749515777282343`*^9, 3.674951655674818*^9}, {
   3.674951779409143*^9, 3.6749517846166143`*^9}, {3.6749518860778427`*^9, 
   3.674951890457861*^9}, 3.6749522283619623`*^9, 3.67495292139019*^9, 
   3.6749529970978317`*^9, 3.6749530387350817`*^9, 3.674953086519855*^9, 
   3.6749531578096724`*^9, {3.674953215698413*^9, 3.674953233436871*^9}, {
   3.6749534641846933`*^9, 3.674953485698698*^9}, {3.674953521617517*^9, 
   3.674953531509349*^9}, 3.674953593844977*^9, 3.674954278055032*^9, {
   3.674954490128518*^9, 3.674954542886607*^9}, 3.674954616410266*^9, {
   3.674954679087428*^9, 3.674954683462571*^9}, 3.674954740258767*^9, {
   3.6749547826341257`*^9, 3.674954812589665*^9}, {3.674954844819929*^9, 
   3.674954884818581*^9}, 3.6749550721626368`*^9, 3.675002252018441*^9, {
   3.675002383605424*^9, 3.675002407151325*^9}, 3.675002497636518*^9, 
   3.675010078914236*^9, {3.675010122229579*^9, 3.675010127372836*^9}, 
   3.675010204001416*^9, 3.675010309432159*^9, {3.6750103618817368`*^9, 
   3.675010372149804*^9}, 3.675010425981427*^9, 3.675010470481447*^9, 
   3.6750105165130653`*^9, 3.6750106453475237`*^9, 3.6750107596236277`*^9, 
   3.675010981054696*^9, 3.675011023665169*^9, 3.675011066345413*^9, 
   3.675011276939389*^9, 3.675012117490355*^9, 3.675012183067213*^9, 
   3.6750122887762737`*^9, 3.675012605039619*^9, {3.675012981605575*^9, 
   3.675013011514262*^9}, 3.675013071153228*^9, 3.675013108268325*^9, 
   3.675013914488658*^9, 3.675013975448215*^9, 3.675094639024191*^9, 
   3.675095127826557*^9, {3.6755212056864433`*^9, 3.675521234159013*^9}, 
   3.67552141701045*^9, 3.675521581345519*^9, 3.675521740016748*^9, 
   3.6755217997063217`*^9, 3.675521896603881*^9, 3.675521963202096*^9, 
   3.675522706931097*^9, 3.67552414626331*^9, 3.675524326586142*^9, 
   3.6755245267917757`*^9, {3.675525080608453*^9, 3.6755251068774242`*^9}, {
   3.675525774695155*^9, 3.6755257919865828`*^9}, 3.6755259751204863`*^9, {
   3.675527058140576*^9, 3.675527109294125*^9}, 3.676051615748241*^9, 
   3.676051655293002*^9, {3.676051877300728*^9, 3.676051969738206*^9}, 
   3.676052094939184*^9, 3.67605220677575*^9, {3.676052240397798*^9, 
   3.6760522444623957`*^9}, {3.6760522969808083`*^9, 3.6760523235413923`*^9}, 
   3.676052838934847*^9, {3.6760529292291193`*^9, 3.676052940405881*^9}, 
   3.6824426243225822`*^9, {3.68263291645513*^9, 3.682632950277076*^9}, {
   3.682633115254449*^9, 3.6826331306310787`*^9}, 3.717364732432131*^9, 
   3.717364799678297*^9, 3.7173754947986174`*^9, 3.7173755869957795`*^9, 
   3.717375999385504*^9, 3.7174328751261673`*^9, 3.717433038536454*^9, 
   3.7174355572663336`*^9, 3.7174355918359942`*^9, 3.7174356367640734`*^9, 
   3.717436597426562*^9, 3.717436710903161*^9, 3.718634623982591*^9, 
   3.7186362788576117`*^9, 3.7186374136066046`*^9, 3.7186388705887637`*^9, 
   3.718638955343713*^9, 3.7186390326730485`*^9, 3.718639374690049*^9, 
   3.7186455600983934`*^9, 3.718646086352518*^9, 3.7186464592887726`*^9, 
   3.7186467546128917`*^9, 3.725107346225417*^9, 3.7251074542400074`*^9, 
   3.7251075176717186`*^9, 3.7251076815032063`*^9, 3.7251077761797724`*^9, 
   3.7251080553524637`*^9, 3.7278334427977905`*^9, 3.7299439103896065`*^9, 
   3.7299439680286875`*^9, 3.8553593565191493`*^9, 3.8553594984164934`*^9, 
   3.855359548302842*^9, 3.8553596458393507`*^9, 3.8553597212840858`*^9, 
   3.8553597758806505`*^9, 3.8553598324818125`*^9, 3.855359907413826*^9, 
   3.8553599796922865`*^9, 3.8553600102379637`*^9, 3.855360041618705*^9, 
   3.8553601269442234`*^9, 3.8553601716787834`*^9, 3.8553602064993744`*^9},
 FontSize->24,ExpressionUUID->"227d8ab9-f6ad-42ee-a9f9-c219599da378"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FactorInteger", "[", "p", "]"}]], "Input",
 CellChangeTimes->{{3.674949142861601*^9, 3.674949171157166*^9}},
 FontSize->24,ExpressionUUID->"14a3bd59-561f-4b3f-bf6d-e5c12c116434"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"2", ",", "4"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.674949171761767*^9, 3.674949216006836*^9, {3.6749505047050543`*^9, 
   3.674950520867921*^9}, {3.674950591934738*^9, 3.674950620532427*^9}, 
   3.674950680153206*^9, {3.674950718165841*^9, 3.674950761418626*^9}, {
   3.67495081469742*^9, 3.674950838836712*^9}, 3.674950887462137*^9, 
   3.674951027700795*^9, {3.674951085043709*^9, 3.6749510957338943`*^9}, 
   3.674951172205263*^9, 3.674951541106052*^9, 3.674951577824512*^9, 
   3.674951655778944*^9, 3.674951784713278*^9, 3.674951890558134*^9, 
   3.6749522284618063`*^9, {3.674954527578402*^9, 3.6749545431062927`*^9}, 
   3.674954616512391*^9, 3.6749546835652122`*^9, 3.674954740354415*^9, 
   3.674954816926695*^9, 3.67495488486827*^9, 3.6749550722113743`*^9, 
   3.675002252069922*^9, {3.6750023836574097`*^9, 3.6750024072141027`*^9}, 
   3.6750024976888437`*^9, 3.6750100789664373`*^9, {3.675010122278343*^9, 
   3.6750101274261837`*^9}, 3.675010204054336*^9, 3.6750103094844923`*^9, {
   3.675010361930781*^9, 3.675010372209567*^9}, 3.675010426032174*^9, 
   3.67501047053062*^9, 3.675010516565112*^9, 3.675010645402581*^9, 
   3.6750107596728373`*^9, 3.6750109811051807`*^9, 3.6750110237141542`*^9, 
   3.675011066399796*^9, 3.675011276988864*^9, 3.67501211754103*^9, 
   3.675012183120432*^9, 3.675012288826805*^9, 3.675012605088402*^9, {
   3.675012981647005*^9, 3.675013011564575*^9}, 3.6750130712078123`*^9, 
   3.67501310831715*^9, 3.675013914542201*^9, 3.675013975495182*^9, 
   3.675094639073509*^9, 3.675095127921146*^9, 3.675521234235688*^9, 
   3.675521417075777*^9, 3.675521581379653*^9, 3.675521740042156*^9, 
   3.675521799732297*^9, 3.67552189660817*^9, 3.675521963228044*^9, 
   3.6755227069346733`*^9, 3.6755241462886133`*^9, 3.675524326614223*^9, 
   3.6755245268141317`*^9, {3.675525080612864*^9, 3.6755251068808603`*^9}, {
   3.675525774698554*^9, 3.675525791993124*^9}, 3.675525975187901*^9, {
   3.6755270581441517`*^9, 3.6755270782940073`*^9}, 3.675527109322296*^9, 
   3.676051615782975*^9, 3.676051655341591*^9, {3.676051877346291*^9, 
   3.6760519697855864`*^9}, 3.676052094988263*^9, 3.6760522068233347`*^9, 
   3.676052244514142*^9, {3.6760522970304728`*^9, 3.6760523235918713`*^9}, 
   3.6760528389842787`*^9, {3.67605292928683*^9, 3.67605294045392*^9}, 
   3.6824426243759317`*^9, {3.6826329164900208`*^9, 3.6826329503288307`*^9}, {
   3.682633115304399*^9, 3.6826331306812763`*^9}, 3.7173647324348183`*^9, 
   3.717364799708703*^9, 3.7173754948454175`*^9, 3.7173755870269794`*^9, 
   3.717375999416704*^9, 3.7174328751573677`*^9, 3.7174330385520544`*^9, 
   3.7174355572975335`*^9, 3.717435591867194*^9, 3.717435636779673*^9, 
   3.717436597457762*^9, 3.7174367109343615`*^9, 3.718634624013791*^9, 
   3.7186362788888116`*^9, 3.718637413637805*^9, 3.7186388706199636`*^9, 
   3.718638955359313*^9, 3.7186390327042484`*^9, 3.7186393747212496`*^9, 
   3.718645560129593*^9, 3.718646086383718*^9, 3.718646459319973*^9, 
   3.7186467546440916`*^9, 3.7251073462566175`*^9, 3.725107454255607*^9, 
   3.7251075177029185`*^9, 3.7251076815344067`*^9, 3.725107776210973*^9, 
   3.7251080553836637`*^9, 3.7278334428289905`*^9, 3.7299439104296064`*^9, 
   3.7299439680586877`*^9, 3.8553593565457525`*^9, 3.8553594984555674`*^9, 
   3.8553595483191953`*^9, 3.855359645861116*^9, 3.8553597213057966`*^9, 
   3.8553597759001265`*^9, 3.855359832500903*^9, 3.8553599074365*^9, 
   3.8553599797132783`*^9, 3.85536001025731*^9, 3.855360041639681*^9, 
   3.8553601269677973`*^9, 3.8553601717012167`*^9, 3.855360206524606*^9},
 FontSize->24,ExpressionUUID->"748a0e87-911e-4fd8-b115-cf7364ce869f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"MI", "=", 
   RowBox[{"Inverse", "[", "M", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MI", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.673475330809434*^9, 3.673475351148142*^9}},
 FontSize->24,ExpressionUUID->"04d9c57a-119c-407c-911b-a89376cd409b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox["3", "4"]}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      RowBox[{"-", 
       FractionBox["1", "4"]}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      RowBox[{"-", 
       FractionBox["1", "4"]}], 
      RowBox[{"-", 
       FractionBox["1", "4"]}]},
     {
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}]},
     {
      RowBox[{"-", 
       FractionBox["1", "4"]}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      RowBox[{"-", 
       FractionBox["3", "4"]}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      RowBox[{"-", 
       FractionBox["1", "4"]}], 
      RowBox[{"-", 
       FractionBox["1", "4"]}]},
     {
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}]},
     {
      RowBox[{"-", 
       FractionBox["1", "4"]}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      RowBox[{"-", 
       FractionBox["1", "4"]}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}]},
     {
      RowBox[{"-", 
       FractionBox["1", "4"]}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      RowBox[{"-", 
       FractionBox["1", "4"]}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.6734753442135487`*^9, 3.6734753514794693`*^9}, 
   3.673476425046012*^9, 3.673476481115388*^9, 3.6734774302723417`*^9, {
   3.67347746998205*^9, 3.673477483998201*^9}, 3.673477517451869*^9, {
   3.673477557495864*^9, 3.673477604404031*^9}, {3.673477887130973*^9, 
   3.6734779089187326`*^9}, 3.6734779879633427`*^9, 3.67347802098746*^9, {
   3.673478058818194*^9, 3.673478118354842*^9}, 3.673478212735091*^9, 
   3.673478261397276*^9, 3.673478328197577*^9, 3.6734783844572067`*^9, 
   3.673478421528881*^9, 3.673478454490651*^9, {3.673478526351406*^9, 
   3.673478541867426*^9}, 3.6734786043282013`*^9, {3.673478663230338*^9, 
   3.673478699204516*^9}, {3.673478756069985*^9, 3.673478779610704*^9}, {
   3.673478827668026*^9, 3.673478854699175*^9}, {3.6734789149000387`*^9, 
   3.673478921973938*^9}, 3.673479378220641*^9, 3.6734794545078707`*^9, {
   3.673479489892605*^9, 3.673479513575718*^9}, {3.673479587629038*^9, 
   3.673479609949848*^9}, 3.673479987137766*^9, {3.6734800844529*^9, 
   3.673480091672784*^9}, {3.673480134649619*^9, 3.673480145580159*^9}, {
   3.673480200981226*^9, 3.67348022542246*^9}, 3.6734803006244707`*^9, 
   3.6734805608814507`*^9, 3.673480612740641*^9, 3.673480670718301*^9, 
   3.673704513827883*^9, {3.6737045924272547`*^9, 3.673704651046685*^9}, {
   3.673704718417601*^9, 3.6737048860534363`*^9}, {3.673705031037077*^9, 
   3.6737050509944363`*^9}, {3.673705089830193*^9, 3.673705137892797*^9}, {
   3.67370519483849*^9, 3.673705230213208*^9}, 3.6737052636270657`*^9, {
   3.673705363395011*^9, 3.673705375884343*^9}, 3.673705435401597*^9, {
   3.6737055128075953`*^9, 3.673705517890463*^9}, {3.6737055562572002`*^9, 
   3.6737056290229197`*^9}, 3.673743914129003*^9, {3.673744240445136*^9, 
   3.673744269026147*^9}, 3.673744540670226*^9, 3.673757482499555*^9, 
   3.673758043461789*^9, 3.6737582126831503`*^9, 3.673758274934472*^9, 
   3.6737583157719383`*^9, {3.6737585886983767`*^9, 3.673758630126048*^9}, 
   3.673758686575274*^9, {3.673759085235167*^9, 3.6737591350127068`*^9}, 
   3.6737595551808453`*^9, {3.673759874199438*^9, 3.6737598912768393`*^9}, 
   3.67376913338815*^9, 3.673769430563826*^9, 3.6738002982520437`*^9, 
   3.673800366786085*^9, {3.673800601328251*^9, 3.673800616613204*^9}, {
   3.673800672310515*^9, 3.6738006951819553`*^9}, 3.673800757473878*^9, 
   3.673800839470982*^9, 3.673800883201874*^9, 3.6738009505301867`*^9, 
   3.673800987966935*^9, 3.6739175589247627`*^9, 3.674007643417815*^9, 
   3.674007822332365*^9, {3.674007862705418*^9, 3.674007885854528*^9}, 
   3.674008011100029*^9, 3.6740081917315903`*^9, 3.674008245471653*^9, 
   3.674018854070883*^9, {3.674019868601202*^9, 3.674019886796688*^9}, 
   3.6740200256442623`*^9, 3.674020082889655*^9, 3.674020134522324*^9, 
   3.674020165579754*^9, 3.674020394310432*^9, 3.674020457496089*^9, 
   3.674025477842721*^9, 3.674025676551751*^9, 3.674025719951756*^9, 
   3.674025763276743*^9, {3.674025800487865*^9, 3.6740258216058493`*^9}, 
   3.674025965827652*^9, 3.67402604208047*^9, 3.6740261170814753`*^9, 
   3.674026285507352*^9, 3.674944744814887*^9, 3.674945147477758*^9, 
   3.674945578825305*^9, 3.674946591431005*^9, 3.6749466341330547`*^9, 
   3.6749479138347807`*^9, 3.674948000263829*^9, 3.67494805041006*^9, 
   3.674948080461219*^9, 3.674948119519741*^9, 3.674948176747519*^9, {
   3.674948241015872*^9, 3.674948268050138*^9}, 3.6749483950657177`*^9, 
   3.674948498456023*^9, 3.6749485392826557`*^9, 3.67494907421268*^9, 
   3.674949216058095*^9, {3.674950504761238*^9, 3.674950520919114*^9}, {
   3.674950591987187*^9, 3.674950620597498*^9}, 3.6749506802069473`*^9, {
   3.6749507182122173`*^9, 3.674950761467456*^9}, {3.6749508147495937`*^9, 
   3.674950838887335*^9}, 3.674950887514542*^9, 3.674951027751322*^9, {
   3.674951085072006*^9, 3.674951095783227*^9}, 3.674951172257155*^9, 
   3.674951541158071*^9, 3.674951577876569*^9, 3.6749516558253593`*^9, 
   3.674951784764587*^9, 3.674951890609136*^9, 3.674952228512122*^9, {
   3.674954527631576*^9, 3.674954543158183*^9}, 3.674954616559235*^9, 
   3.674954683612589*^9, 3.674954740407655*^9, 3.674954884917749*^9, 
   3.674955072257772*^9, 3.675002252119607*^9, {3.67500238370444*^9, 
   3.675002407261059*^9}, 3.67500249773459*^9, 3.675010079015184*^9, {
   3.67501012232784*^9, 3.675010127474967*^9}, 3.675010204103983*^9, 
   3.675010309528761*^9, {3.675010361980115*^9, 3.6750103723365192`*^9}, 
   3.67501042608032*^9, 3.67501047058139*^9, 3.675010516619033*^9, 
   3.6750106454514017`*^9, 3.6750107597221937`*^9, 3.675010981156196*^9, 
   3.675011023765112*^9, 3.675011066449691*^9, 3.6750112770385323`*^9, 
   3.675012117589517*^9, 3.675012183171858*^9, 3.675012288877059*^9, 
   3.675012605140202*^9, {3.6750129817035*^9, 3.6750130116087914`*^9}, 
   3.675013071264234*^9, 3.675013108366734*^9, 3.675013914609283*^9, 
   3.675013975548266*^9, 3.675094639129017*^9, 3.675095128027144*^9, 
   3.675521234317388*^9, 3.675521417146825*^9, 3.675521581426591*^9, 
   3.6755217400786057`*^9, 3.6755217997580137`*^9, 3.6755218966352262`*^9, 
   3.675521963257504*^9, 3.675522706956489*^9, 3.67552414631304*^9, 
   3.6755243266419277`*^9, 3.6755245268357162`*^9, {3.67552508064334*^9, 
   3.6755251069025803`*^9}, {3.675525774722372*^9, 3.675525792017384*^9}, 
   3.675525975254813*^9, {3.675527058172413*^9, 3.675527078339188*^9}, 
   3.675527109384869*^9, 3.6760516158169403`*^9, 3.676051655390067*^9, {
   3.676051877383071*^9, 3.676051969837449*^9}, 3.67605209503933*^9, 
   3.6760522068764067`*^9, 3.676052244563692*^9, {3.676052297081563*^9, 
   3.676052323639292*^9}, 3.6760528390341377`*^9, {3.676052929335102*^9, 
   3.676052940479825*^9}, 3.6824426244235783`*^9, {3.6826329165394506`*^9, 
   3.682632950379106*^9}, {3.682633115353932*^9, 3.682633130731065*^9}, 
   3.7173647325095863`*^9, 3.717364799737417*^9, 3.7173754948922176`*^9, 
   3.7173755870737796`*^9, 3.717375999447904*^9, 3.7174328752041674`*^9, 
   3.717433038598854*^9, 3.7174355573131337`*^9, 3.7174355919139943`*^9, 
   3.7174356368118734`*^9, 3.717436597488962*^9, 3.717436710965561*^9, 
   3.7186346240449915`*^9, 3.7186362789200115`*^9, 3.718637413669005*^9, 
   3.718638870651164*^9, 3.7186389554061127`*^9, 3.718639032735449*^9, 
   3.7186393747524495`*^9, 3.7186455601607933`*^9, 3.718646086414918*^9, 
   3.718646459366773*^9, 3.718646754675292*^9, 3.7251073463034177`*^9, 
   3.725107454286807*^9, 3.7251075177341185`*^9, 3.7251076815812063`*^9, 
   3.7251077762421727`*^9, 3.7251080554148636`*^9, 3.7278334428601904`*^9, 
   3.729943910459606*^9, 3.729943968088688*^9, 3.8553593567396326`*^9, 
   3.855359498666973*^9, 3.8553595483538494`*^9, 3.8553596458915057`*^9, 
   3.855359721325448*^9, 3.8553597759224443`*^9, 3.855359832517984*^9, 
   3.8553599074645576`*^9, 3.855359979733636*^9, 3.8553600102784243`*^9, 
   3.8553600416593733`*^9, 3.8553601269952383`*^9, 3.85536017172054*^9, 
   3.8553602065484657`*^9},
 FontSize->24,ExpressionUUID->"c3ed6325-a04b-474d-a8f6-200c53dd0a62"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Coker", "=", 
   RowBox[{"{", 
    RowBox[{"Table", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "L"}], "}"}]}], "]"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"vec", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", "L"}], "}"}]}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Do", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"vec", "[", 
              RowBox[{"[", "v", "]"}], "]"}], "=", "i"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Coker", "=", 
             RowBox[{"Union", "[", 
              RowBox[{"Coker", ",", 
               RowBox[{"{", 
                RowBox[{"Mod", "[", 
                 RowBox[{
                  RowBox[{"MI", ".", "vec"}], ",", "1"}], "]"}], "}"}]}], 
              "]"}]}], ";"}], "\[IndentingNewLine]", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Length", "[", "Coker", "]"}], "\[Equal]", "p"}], ",", 
           RowBox[{"Break", "[", "]"}]}], "]"}]}], ";"}]}], 
      "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"v", ",", "L"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Coker", ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "Coker", "]"}]}], "Input",
 CellChangeTimes->{{3.6737439335141907`*^9, 3.673743980034615*^9}, {
   3.673744316015345*^9, 3.67374450180865*^9}, {3.673744576931148*^9, 
   3.6737445773559933`*^9}, {3.673800678403573*^9, 3.6738006840463552`*^9}, 
   3.6740078086658983`*^9, {3.674018940293866*^9, 3.674019221191359*^9}},
 FontSize->24,ExpressionUUID->"bf42cdee-4fb4-4812-8150-b58f7442f211"],

Cell[BoxData["11"], "Output",
 CellChangeTimes->{
  3.674019207321911*^9, {3.6740198687727957`*^9, 3.6740198868472652`*^9}, 
   3.674020025688245*^9, 3.674020082938541*^9, {3.674020138271842*^9, 
   3.674020165633185*^9}, 3.674020394382968*^9, 3.6740204575563707`*^9, 
   3.674025477885985*^9, 3.674025676597157*^9, 3.6740257200014763`*^9, 
   3.674025763319907*^9, {3.674025800663683*^9, 3.674025821631679*^9}, 
   3.674025965875102*^9, 3.674026042129136*^9, 3.6740261171328897`*^9, 
   3.674026285548402*^9, 3.6749447448640957`*^9, 3.674945147532982*^9, 
   3.674945578874597*^9, 3.67494659148011*^9, 3.674946634182276*^9, 
   3.6749479138838263`*^9, 3.674948000308434*^9, 3.674948050460606*^9, 
   3.67494808050601*^9, 3.674948119569525*^9, 3.674948176797741*^9, {
   3.674948241065428*^9, 3.6749482680984373`*^9}, 3.674948395115878*^9, 
   3.674948498537119*^9, 3.6749485393832693`*^9, 3.674949074257654*^9, 
   3.674949216104712*^9, {3.674950504809826*^9, 3.6749505209726343`*^9}, {
   3.674950592035029*^9, 3.674950620620245*^9}, 3.67495068025229*^9, {
   3.674950718263575*^9, 3.674950761518404*^9}, {3.674950814796754*^9, 
   3.674950838936859*^9}, 3.6749508875633383`*^9, 3.6749510277988987`*^9, {
   3.6749510852460546`*^9, 3.674951095833871*^9}, 3.674951172304057*^9, 
   3.674951541553062*^9, 3.67495157795608*^9, 3.6749516558784437`*^9, 
   3.674951784812769*^9, 3.67495189065421*^9, 3.674952228559404*^9, {
   3.674954527681871*^9, 3.674954543222*^9}, 3.674954616607181*^9, 
   3.674954683661644*^9, 3.6749547404565496`*^9, 3.674954884967555*^9, 
   3.674955072309165*^9, 3.675002252163124*^9, {3.6750023837560873`*^9, 
   3.675002407310993*^9}, 3.675002497788224*^9, 3.675010079064519*^9, {
   3.6750101223808727`*^9, 3.675010127522369*^9}, 3.675010204154563*^9, 
   3.675010309582375*^9, {3.6750103620316687`*^9, 3.6750103724836483`*^9}, 
   3.67501042612991*^9, 3.675010470630312*^9, 3.6750105166674356`*^9, 
   3.675010645502288*^9, 3.675010759770591*^9, 3.675010981201098*^9, 
   3.675011023813081*^9, 3.675011066497793*^9, 3.6750112770885468`*^9, 
   3.6750121176404953`*^9, 3.675012183222186*^9, 3.675012288921171*^9, 
   3.675012605186905*^9, {3.675012981751049*^9, 3.6750130116624327`*^9}, 
   3.675013071316916*^9, 3.6750131084182587`*^9, 3.675013914657147*^9, 
   3.6750139756124363`*^9, 3.675094639170164*^9, 3.675095128135306*^9, 
   3.675521234387631*^9, 3.6755214172160587`*^9, 3.675521581464361*^9, 
   3.6755217401308613`*^9, 3.675521799786956*^9, 3.6755218966642637`*^9, 
   3.675521963282971*^9, 3.675522706982026*^9, 3.6755241463377247`*^9, 
   3.675524326669834*^9, 3.675524526857283*^9, {3.675525080677939*^9, 
   3.675525106927578*^9}, {3.6755257747552567`*^9, 3.675525792056728*^9}, 
   3.675525975326366*^9, {3.675527058196878*^9, 3.6755270783657217`*^9}, 
   3.6755271094502897`*^9, 3.676051615864359*^9, 3.676051655479761*^9, {
   3.676051877502315*^9, 3.676051969886086*^9}, 3.676052095086412*^9, 
   3.676052206925724*^9, 3.676052244613421*^9, {3.676052297129685*^9, 
   3.6760523236904593`*^9}, 3.6760528390821743`*^9, {3.676052929491023*^9, 
   3.676052940512279*^9}, 3.682442624471581*^9, {3.6826329165871563`*^9, 
   3.682632950424315*^9}, {3.68263311539727*^9, 3.682633130781517*^9}, 
   3.717364732855297*^9, 3.717364799766267*^9, 3.717375494939018*^9, 
   3.71737558713618*^9, 3.7173759995103045`*^9, 3.7174328752509675`*^9, 
   3.7174330386300545`*^9, 3.7174355573443336`*^9, 3.7174355919451942`*^9, 
   3.717435636843073*^9, 3.717436597520162*^9, 3.7174367110123615`*^9, 
   3.7186346241073914`*^9, 3.7186362789668117`*^9, 3.718637413731405*^9, 
   3.7186388706979637`*^9, 3.718638955437313*^9, 3.7186390327822485`*^9, 
   3.7186393747992496`*^9, 3.718645560191993*^9, 3.7186460864461184`*^9, 
   3.718646459397973*^9, 3.7186467547064915`*^9, 3.7251073463346176`*^9, 
   3.7251074543180075`*^9, 3.725107517780919*^9, 3.7251076816124067`*^9, 
   3.7251077762733727`*^9, 3.7251080554772635`*^9, 3.727833442891391*^9, 
   3.7299439104996066`*^9, 3.7299439681186876`*^9, 3.8553593568150744`*^9, 
   3.855359498732214*^9, 3.8553595484513083`*^9, 3.8553596459359417`*^9, 
   3.8553597213581133`*^9, 3.8553597759536486`*^9, 3.855359832557721*^9, 
   3.855359907501469*^9, 3.8553599797839165`*^9, 3.855360010323533*^9, 
   3.8553600464539127`*^9, 3.8553601271022577`*^9, 3.8553601764977617`*^9, 
   3.8553602066149173`*^9},
 FontSize->24,ExpressionUUID->"4db62c55-a35b-44cf-b0cb-d7f2b7b0714d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"TwCoker", "=", 
   RowBox[{"Mod", "[", 
    RowBox[{
     RowBox[{"2", "*", "Coker"}], ",", "1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.673706324680571*^9, 3.673706348593964*^9}, 
   3.674007815000904*^9},
 FontSize->24,ExpressionUUID->"81677773-d445-4f3c-8ba7-bd42fc874310"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cok0", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"vec", ",", "\[IndentingNewLine]", 
     RowBox[{"Mod", "[", 
      RowBox[{
       RowBox[{"MI", ".", "vec"}], ",", "1"}], "]"}]}], "\[IndentingNewLine]",
     "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.673476114587022*^9, 3.673476201764779*^9}, {
  3.673477878588866*^9, 3.673477883874959*^9}},
 FontSize->24,ExpressionUUID->"a16236e5-dcd3-4e9b-9f2d-686efee2046d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"cD", "=", 
  RowBox[{"Cok0", "[", "Delta", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Position", "[", 
  RowBox[{"TwCoker", ",", "cD"}], "]"}]}], "Input",
 CellChangeTimes->{{3.673704441365206*^9, 3.6737044488006363`*^9}, {
  3.673704529036892*^9, 3.673704586257842*^9}, {3.673704753214925*^9, 
  3.67370475327851*^9}, {3.673706359112173*^9, 3.6737063746106167`*^9}},
 FontSize->24,ExpressionUUID->"b8e93c22-b6ee-401b-ac21-a8d06b1d06bc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1", "2"], ",", "0", ",", 
   FractionBox["1", "2"], ",", "0", ",", 
   FractionBox["1", "2"], ",", 
   FractionBox["1", "2"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.6737044500126123`*^9, 3.6737045139735613`*^9, 3.673704557301519*^9, {
   3.673704587827688*^9, 3.6737046511582212`*^9}, {3.673704718607328*^9, 
   3.673704886209585*^9}, {3.6737050311577797`*^9, 3.673705051161207*^9}, {
   3.673705089964023*^9, 3.6737051380422497`*^9}, {3.673705194983856*^9, 
   3.6737052303598633`*^9}, 3.6737052637715263`*^9, {3.673705363535512*^9, 
   3.673705376024418*^9}, 3.673705435541956*^9, {3.673705512952064*^9, 
   3.673705518019537*^9}, {3.6737055564036007`*^9, 3.673705629133903*^9}, 
   3.673706375179109*^9, {3.673757464551095*^9, 3.673757489148594*^9}, 
   3.673758043609194*^9, 3.673758212836186*^9, 3.673758275098763*^9, 
   3.673758315910089*^9, {3.673758588857238*^9, 3.673758630277934*^9}, 
   3.673758686722348*^9, {3.6737590853685837`*^9, 3.6737591351540728`*^9}, 
   3.673759555333012*^9, {3.6737598743517857`*^9, 3.67375989141641*^9}, 
   3.6737691335443573`*^9, 3.673769430715135*^9, 3.673800298403672*^9, 
   3.67380036694519*^9, {3.6738006014742813`*^9, 3.6738006167705793`*^9}, {
   3.6738006724613132`*^9, 3.673800695333555*^9}, 3.673800757625436*^9, 
   3.673800839801853*^9, 3.673800883470989*^9, 3.673917559094809*^9, 
   3.6740078224419737`*^9, {3.674007862891952*^9, 3.674007885997292*^9}, 
   3.6740080112162647`*^9, 3.674008191875964*^9, 3.674008245596602*^9, {
   3.674019868916703*^9, 3.674019886922619*^9}, 3.674020025732913*^9, 
   3.674020082996375*^9, {3.6740201434286127`*^9, 3.674020165707719*^9}, 
   3.674020394451091*^9, 3.674020457612667*^9, 3.674025477931382*^9, 
   3.674025676667129*^9, 3.674025720078285*^9, 3.6740257633642073`*^9, {
   3.674025800737241*^9, 3.674025821677751*^9}, 3.674025965933197*^9, 
   3.674026042189191*^9, 3.674026117181357*^9, 3.674026285628335*^9, 
   3.674944744953869*^9, 3.674945147621063*^9, 3.674945578957748*^9, 
   3.6749465915571003`*^9, 3.6749466342595463`*^9, 3.674947913963026*^9, 
   3.674948000350527*^9, 3.674948050536838*^9, 3.674948080584897*^9, 
   3.674948119650956*^9, 3.674948176872438*^9, {3.674948241126281*^9, 
   3.674948268181151*^9}, 3.674948395193173*^9, 3.67494849883857*^9, 
   3.67494853991549*^9, 3.6749490743035097`*^9, 3.674949216184351*^9, {
   3.674950504926841*^9, 3.674950521086383*^9}, {3.674950592168947*^9, 
   3.674950620745973*^9}, 3.674950680386938*^9, {3.674950718398196*^9, 
   3.67495076165163*^9}, {3.674950814931939*^9, 3.674950839071897*^9}, 
   3.6749508876899242`*^9, 3.67495102793191*^9, {3.674951085394887*^9, 
   3.6749510959664183`*^9}, 3.674951172470689*^9, 3.674951541659316*^9, 
   3.674951578057556*^9, 3.6749516560119457`*^9, 3.674951784947896*^9, 
   3.674951890786318*^9, 3.6749522286933327`*^9, {3.674954527760831*^9, 
   3.674954543281954*^9}, 3.674954616689807*^9, 3.6749546837373734`*^9, 
   3.674954740534093*^9, 3.6749548850440397`*^9, 3.674955072390938*^9, 
   3.6750022522297287`*^9, {3.6750023838326073`*^9, 3.6750024073868647`*^9}, 
   3.6750024978642673`*^9, 3.675010079136394*^9, {3.675010122463545*^9, 
   3.675010127589795*^9}, 3.675010204230495*^9, 3.675010309659129*^9, {
   3.6750103621165047`*^9, 3.675010372557857*^9}, 3.675010426206476*^9, 
   3.675010470707481*^9, 3.675010516745125*^9, 3.675010645587392*^9, 
   3.6750107598486023`*^9, 3.675010981264284*^9, 3.675011023890153*^9, 
   3.675011066556388*^9, 3.675011277174336*^9, 3.6750121177170057`*^9, 
   3.675012183298723*^9, 3.675012289004951*^9, 3.675012605264529*^9, {
   3.675012981832259*^9, 3.675013011738174*^9}, 3.675013071398488*^9, 
   3.67501310850093*^9, 3.675013914735055*^9, 3.6750139756900377`*^9, 
   3.675094639213272*^9, 3.675095128267399*^9, 3.675521234419631*^9, 
   3.675521417293659*^9, 3.67552158153617*^9, 3.675521740165678*^9, 
   3.6755217998271847`*^9, 3.675521896704569*^9, 3.6755219633166113`*^9, 
   3.6755227070124073`*^9, 3.67552414636954*^9, 3.675524326709402*^9, 
   3.675524526894704*^9, {3.675525080707266*^9, 3.67552510695538*^9}, {
   3.675525774791718*^9, 3.675525792115285*^9}, 3.675525975361598*^9, {
   3.675527058229388*^9, 3.675527078403125*^9}, 3.675527109487739*^9, 
   3.676051615932086*^9, 3.676051655710856*^9, {3.6760518776056843`*^9, 
   3.676051969962891*^9}, 3.676052095163517*^9, 3.6760522070017147`*^9, 
   3.676052244689749*^9, {3.676052297206715*^9, 3.676052323765656*^9}, 
   3.676052839159746*^9, {3.6760529295782547`*^9, 3.676052940558482*^9}, 
   3.682442624543893*^9, {3.6826329166296673`*^9, 3.682632950510893*^9}, {
   3.6826331154636183`*^9, 3.6826331308577223`*^9}, 3.717364732971463*^9, 
   3.717364799808049*^9, 3.7173754950170183`*^9, 3.71737558721418*^9, 
   3.7173759995727043`*^9, 3.717432875313368*^9, 3.717433038661255*^9, 
   3.7174355573911333`*^9, 3.717435592007594*^9, 3.7174356368898735`*^9, 
   3.7174365975669622`*^9, 3.7174367110591617`*^9, 3.7186346241853914`*^9, 
   3.7186362790292115`*^9, 3.7186374138094053`*^9, 3.718638870760364*^9, 
   3.7186389554841127`*^9, 3.718639032829049*^9, 3.7186393748460493`*^9, 
   3.7186455602387934`*^9, 3.718646086508518*^9, 3.718646459444773*^9, 
   3.718646754753292*^9, 3.7251073463970175`*^9, 3.725107454349207*^9, 
   3.7251075178277187`*^9, 3.7251076816592064`*^9, 3.725107776320173*^9, 
   3.7251080555396643`*^9, 3.7278334429381905`*^9, 3.7299439105496063`*^9, 
   3.729943968148688*^9, 3.8553593569172583`*^9, 3.8553594988243113`*^9, 
   3.855359548503523*^9, 3.8553596459987183`*^9, 3.8553597214127245`*^9, 
   3.8553597821585894`*^9, 3.8553598326004534`*^9, 3.8553599075803967`*^9, 
   3.8553599798797493`*^9, 3.8553600103904104`*^9, 3.8553600467545137`*^9, 
   3.8553601271910515`*^9, 3.855360176906618*^9, 3.8553602116153603`*^9},
 FontSize->24,ExpressionUUID->"38852874-514b-4de6-92a3-0e8b58a9f684"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "5", "}"}], ",", 
   RowBox[{"{", "8", "}"}], ",", 
   RowBox[{"{", "9", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.6737044500126123`*^9, 3.6737045139735613`*^9, 3.673704557301519*^9, {
   3.673704587827688*^9, 3.6737046511582212`*^9}, {3.673704718607328*^9, 
   3.673704886209585*^9}, {3.6737050311577797`*^9, 3.673705051161207*^9}, {
   3.673705089964023*^9, 3.6737051380422497`*^9}, {3.673705194983856*^9, 
   3.6737052303598633`*^9}, 3.6737052637715263`*^9, {3.673705363535512*^9, 
   3.673705376024418*^9}, 3.673705435541956*^9, {3.673705512952064*^9, 
   3.673705518019537*^9}, {3.6737055564036007`*^9, 3.673705629133903*^9}, 
   3.673706375179109*^9, {3.673757464551095*^9, 3.673757489148594*^9}, 
   3.673758043609194*^9, 3.673758212836186*^9, 3.673758275098763*^9, 
   3.673758315910089*^9, {3.673758588857238*^9, 3.673758630277934*^9}, 
   3.673758686722348*^9, {3.6737590853685837`*^9, 3.6737591351540728`*^9}, 
   3.673759555333012*^9, {3.6737598743517857`*^9, 3.67375989141641*^9}, 
   3.6737691335443573`*^9, 3.673769430715135*^9, 3.673800298403672*^9, 
   3.67380036694519*^9, {3.6738006014742813`*^9, 3.6738006167705793`*^9}, {
   3.6738006724613132`*^9, 3.673800695333555*^9}, 3.673800757625436*^9, 
   3.673800839801853*^9, 3.673800883470989*^9, 3.673917559094809*^9, 
   3.6740078224419737`*^9, {3.674007862891952*^9, 3.674007885997292*^9}, 
   3.6740080112162647`*^9, 3.674008191875964*^9, 3.674008245596602*^9, {
   3.674019868916703*^9, 3.674019886922619*^9}, 3.674020025732913*^9, 
   3.674020082996375*^9, {3.6740201434286127`*^9, 3.674020165707719*^9}, 
   3.674020394451091*^9, 3.674020457612667*^9, 3.674025477931382*^9, 
   3.674025676667129*^9, 3.674025720078285*^9, 3.6740257633642073`*^9, {
   3.674025800737241*^9, 3.674025821677751*^9}, 3.674025965933197*^9, 
   3.674026042189191*^9, 3.674026117181357*^9, 3.674026285628335*^9, 
   3.674944744953869*^9, 3.674945147621063*^9, 3.674945578957748*^9, 
   3.6749465915571003`*^9, 3.6749466342595463`*^9, 3.674947913963026*^9, 
   3.674948000350527*^9, 3.674948050536838*^9, 3.674948080584897*^9, 
   3.674948119650956*^9, 3.674948176872438*^9, {3.674948241126281*^9, 
   3.674948268181151*^9}, 3.674948395193173*^9, 3.67494849883857*^9, 
   3.67494853991549*^9, 3.6749490743035097`*^9, 3.674949216184351*^9, {
   3.674950504926841*^9, 3.674950521086383*^9}, {3.674950592168947*^9, 
   3.674950620745973*^9}, 3.674950680386938*^9, {3.674950718398196*^9, 
   3.67495076165163*^9}, {3.674950814931939*^9, 3.674950839071897*^9}, 
   3.6749508876899242`*^9, 3.67495102793191*^9, {3.674951085394887*^9, 
   3.6749510959664183`*^9}, 3.674951172470689*^9, 3.674951541659316*^9, 
   3.674951578057556*^9, 3.6749516560119457`*^9, 3.674951784947896*^9, 
   3.674951890786318*^9, 3.6749522286933327`*^9, {3.674954527760831*^9, 
   3.674954543281954*^9}, 3.674954616689807*^9, 3.6749546837373734`*^9, 
   3.674954740534093*^9, 3.6749548850440397`*^9, 3.674955072390938*^9, 
   3.6750022522297287`*^9, {3.6750023838326073`*^9, 3.6750024073868647`*^9}, 
   3.6750024978642673`*^9, 3.675010079136394*^9, {3.675010122463545*^9, 
   3.675010127589795*^9}, 3.675010204230495*^9, 3.675010309659129*^9, {
   3.6750103621165047`*^9, 3.675010372557857*^9}, 3.675010426206476*^9, 
   3.675010470707481*^9, 3.675010516745125*^9, 3.675010645587392*^9, 
   3.6750107598486023`*^9, 3.675010981264284*^9, 3.675011023890153*^9, 
   3.675011066556388*^9, 3.675011277174336*^9, 3.6750121177170057`*^9, 
   3.675012183298723*^9, 3.675012289004951*^9, 3.675012605264529*^9, {
   3.675012981832259*^9, 3.675013011738174*^9}, 3.675013071398488*^9, 
   3.67501310850093*^9, 3.675013914735055*^9, 3.6750139756900377`*^9, 
   3.675094639213272*^9, 3.675095128267399*^9, 3.675521234419631*^9, 
   3.675521417293659*^9, 3.67552158153617*^9, 3.675521740165678*^9, 
   3.6755217998271847`*^9, 3.675521896704569*^9, 3.6755219633166113`*^9, 
   3.6755227070124073`*^9, 3.67552414636954*^9, 3.675524326709402*^9, 
   3.675524526894704*^9, {3.675525080707266*^9, 3.67552510695538*^9}, {
   3.675525774791718*^9, 3.675525792115285*^9}, 3.675525975361598*^9, {
   3.675527058229388*^9, 3.675527078403125*^9}, 3.675527109487739*^9, 
   3.676051615932086*^9, 3.676051655710856*^9, {3.6760518776056843`*^9, 
   3.676051969962891*^9}, 3.676052095163517*^9, 3.6760522070017147`*^9, 
   3.676052244689749*^9, {3.676052297206715*^9, 3.676052323765656*^9}, 
   3.676052839159746*^9, {3.6760529295782547`*^9, 3.676052940558482*^9}, 
   3.682442624543893*^9, {3.6826329166296673`*^9, 3.682632950510893*^9}, {
   3.6826331154636183`*^9, 3.6826331308577223`*^9}, 3.717364732971463*^9, 
   3.717364799808049*^9, 3.7173754950170183`*^9, 3.71737558721418*^9, 
   3.7173759995727043`*^9, 3.717432875313368*^9, 3.717433038661255*^9, 
   3.7174355573911333`*^9, 3.717435592007594*^9, 3.7174356368898735`*^9, 
   3.7174365975669622`*^9, 3.7174367110591617`*^9, 3.7186346241853914`*^9, 
   3.7186362790292115`*^9, 3.7186374138094053`*^9, 3.718638870760364*^9, 
   3.7186389554841127`*^9, 3.718639032829049*^9, 3.7186393748460493`*^9, 
   3.7186455602387934`*^9, 3.718646086508518*^9, 3.718646459444773*^9, 
   3.718646754753292*^9, 3.7251073463970175`*^9, 3.725107454349207*^9, 
   3.7251075178277187`*^9, 3.7251076816592064`*^9, 3.725107776320173*^9, 
   3.7251080555396643`*^9, 3.7278334429381905`*^9, 3.7299439105496063`*^9, 
   3.729943968148688*^9, 3.8553593569172583`*^9, 3.8553594988243113`*^9, 
   3.855359548503523*^9, 3.8553596459987183`*^9, 3.8553597214127245`*^9, 
   3.8553597821585894`*^9, 3.8553598326004534`*^9, 3.8553599075803967`*^9, 
   3.8553599798797493`*^9, 3.8553600103904104`*^9, 3.8553600467545137`*^9, 
   3.8553601271910515`*^9, 3.855360176906618*^9, 3.8553602116258073`*^9},
 FontSize->24,ExpressionUUID->"be36a165-1755-4e48-bb67-b81602e16433"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cok1", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"vec", ",", "\[IndentingNewLine]", 
     RowBox[{"Cok0", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"vec", "-", "Delta"}], ")"}], "/", "2"}], "]"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.673476528195734*^9, 3.673476581998995*^9}},
 FontSize->24,ExpressionUUID->"eccf451b-138f-4587-a0db-42df35f025e8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Deg", "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"mon", ",", "var"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"mon", ",", "var"}], "]"}], "/", "mon"}], "*", "var"}], "//", 
     "Simplify"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.673476794741363*^9, 3.673476832509186*^9}},
 FontSize->24,ExpressionUUID->"00dbb2ac-1c7c-4ed4-a735-4e7cf8f8529c"],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"mon", ",", "var"}], "}"}], ",", 
   RowBox[{"Simplify", "[", 
    FractionBox[
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "var"], "mon"}], " ", "var"}], "mon"], 
    "]"}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.6734768406281843`*^9, 3.6734774304182158`*^9, {3.673477470109346*^9, 
   3.673477484111436*^9}, 3.6734775175818653`*^9, {3.6734775576899767`*^9, 
   3.6734776045588408`*^9}, {3.673477887263981*^9, 3.673477909047801*^9}, 
   3.673477988114934*^9, 3.673478021121976*^9, {3.673478058959515*^9, 
   3.673478118498884*^9}, 3.6734782128887444`*^9, 3.673478261533497*^9, 
   3.6734783283423243`*^9, 3.6734783846017933`*^9, 3.673478421652054*^9, 
   3.673478454624741*^9, {3.673478526483773*^9, 3.673478541992671*^9}, 
   3.6734786044914093`*^9, {3.673478663376964*^9, 3.6734786993491583`*^9}, {
   3.673478756214892*^9, 3.673478779760751*^9}, {3.673478827788682*^9, 
   3.673478854858852*^9}, {3.673478915052771*^9, 3.673478922092271*^9}, 
   3.67347937836703*^9, 3.673479454656105*^9, {3.673479490039225*^9, 
   3.673479513721486*^9}, {3.673479587763299*^9, 3.673479610083612*^9}, 
   3.673479987282297*^9, {3.6734800846150637`*^9, 3.673480091948284*^9}, {
   3.67348013483279*^9, 3.67348014572966*^9}, {3.673480201130417*^9, 
   3.673480225571577*^9}, 3.6734803007562304`*^9, 3.673480561034568*^9, 
   3.6734806128874474`*^9, 3.673480670861331*^9, 3.673704514033544*^9, {
   3.673704592628201*^9, 3.673704651215818*^9}, {3.6737047186685143`*^9, 
   3.673704886267885*^9}, {3.673705031234981*^9, 3.673705051221336*^9}, {
   3.673705090041938*^9, 3.673705138111974*^9}, {3.673705195053434*^9, 
   3.673705230434537*^9}, 3.673705263834753*^9, {3.673705363604086*^9, 
   3.673705376092539*^9}, 3.673705435605794*^9, {3.6737055130266247`*^9, 
   3.6737055181120872`*^9}, {3.673705556476399*^9, 3.67370562919555*^9}, 
   3.673757526268426*^9, 3.6737580436650476`*^9, 3.67375821288431*^9, 
   3.6737582751561193`*^9, 3.6737583159603786`*^9, {3.673758588905307*^9, 
   3.67375863033146*^9}, 3.673758686776404*^9, {3.6737590854182673`*^9, 
   3.6737591352030582`*^9}, 3.673759555382473*^9, {3.6737598744131603`*^9, 
   3.6737598914645567`*^9}, 3.673769133603366*^9, 3.673769430768263*^9, 
   3.673800298460517*^9, 3.67380036700506*^9, {3.673800601538735*^9, 
   3.6738006168231163`*^9}, {3.673800672511303*^9, 3.6738006953841343`*^9}, 
   3.6738007576794767`*^9, 3.6738008398724823`*^9, 3.6738008835238323`*^9, 
   3.673917559165539*^9, 3.67400782249271*^9, {3.674007862936605*^9, 
   3.674007886055771*^9}, 3.6740080112747173`*^9, 3.674008191941807*^9, 
   3.674008245644124*^9, {3.674019868965506*^9, 3.67401988697612*^9}, 
   3.6740200257910357`*^9, 3.674020083054495*^9, 3.674020165762899*^9, 
   3.674020394503702*^9, 3.674020457664199*^9, 3.6740254779741497`*^9, 
   3.6740256767189903`*^9, 3.674025720137754*^9, 3.674025763409944*^9, {
   3.67402580087153*^9, 3.674025821727944*^9}, 3.674025965985797*^9, 
   3.6740260422426233`*^9, 3.674026117243793*^9, 3.674026285707447*^9, 
   3.6749447450308332`*^9, 3.674945147692698*^9, 3.6749455790122557`*^9, 
   3.674946591615656*^9, 3.674946634318741*^9, 3.6749479140158787`*^9, 
   3.674948000394672*^9, 3.6749480505969048`*^9, 3.674948080644073*^9, 
   3.674948119704397*^9, 3.6749481769331017`*^9, {3.674948241181699*^9, 
   3.674948268235613*^9}, 3.674948395250745*^9, 3.6749484989651327`*^9, 
   3.674948540035029*^9, 3.674949074359358*^9, 3.674949216241214*^9, {
   3.67495050497834*^9, 3.674950521142404*^9}, {3.674950592219515*^9, 
   3.674950620797155*^9}, 3.674950680436963*^9, {3.674950718450708*^9, 
   3.674950761701199*^9}, {3.674950814982036*^9, 3.6749508391215143`*^9}, 
   3.6749508877734327`*^9, 3.674951027983378*^9, {3.674951085449759*^9, 
   3.6749510960171967`*^9}, 3.6749511725202017`*^9, 3.674951541713016*^9, 
   3.674951578109228*^9, 3.674951656080207*^9, 3.674951784998271*^9, 
   3.674951890840087*^9, 3.6749522287573767`*^9, {3.6749545278187437`*^9, 
   3.674954543357355*^9}, 3.674954616759789*^9, 3.6749546837955217`*^9, 
   3.674954740591791*^9, 3.674954885101617*^9, 3.6749550724453077`*^9, 
   3.675002252287324*^9, {3.675002383890677*^9, 3.675002407446745*^9}, 
   3.675002497922441*^9, 3.675010079230095*^9, {3.675010122536928*^9, 
   3.675010127685664*^9}, 3.6750102042887163`*^9, 3.675010309717416*^9, {
   3.675010362187389*^9, 3.675010372654348*^9}, 3.6750104262637444`*^9, 
   3.6750104707647123`*^9, 3.675010516802844*^9, 3.675010645660583*^9, 
   3.675010759905776*^9, 3.6750109813223467`*^9, 3.6750110239467497`*^9, 
   3.675011066615726*^9, 3.675011277243722*^9, 3.675012117775476*^9, 
   3.675012183360477*^9, 3.675012289065441*^9, 3.675012605322722*^9, {
   3.675012981903511*^9, 3.6750130117960043`*^9}, 3.675013071470001*^9, 
   3.675013108597705*^9, 3.6750139147942944`*^9, 3.675013975748932*^9, 
   3.675094639298112*^9, 3.675095128413596*^9, 3.675521234454192*^9, 
   3.675521417363165*^9, 3.675521581572505*^9, 3.675521740202395*^9, 
   3.675521799863662*^9, 3.675521896768478*^9, 3.6755219633488083`*^9, 
   3.6755227070446253`*^9, 3.675524146394766*^9, 3.675524326782868*^9, 
   3.675524526930608*^9, {3.675525080734838*^9, 3.675525106980732*^9}, {
   3.6755257748271933`*^9, 3.675525792141697*^9}, 3.675525975417485*^9, {
   3.675527058261454*^9, 3.675527078435844*^9}, 3.675527109531681*^9, 
   3.67605161601178*^9, 3.676051655860536*^9, {3.6760518776649933`*^9, 
   3.676051970021058*^9}, 3.676052095222396*^9, 3.676052207059881*^9, 
   3.6760522447482367`*^9, {3.6760522972651463`*^9, 3.676052323825238*^9}, 
   3.6760528392195063`*^9, {3.6760529296388283`*^9, 3.676052940604006*^9}, 
   3.6824426245924063`*^9, {3.682632916704405*^9, 3.68263295056938*^9}, {
   3.6826331155212097`*^9, 3.682633130919879*^9}, 3.717364732996169*^9, 
   3.717364799840302*^9, 3.717375495079418*^9, 3.71737558729218*^9, 
   3.717375999635104*^9, 3.7174328753601675`*^9, 3.7174330387080545`*^9, 
   3.7174355574223337`*^9, 3.7174355920543947`*^9, 3.7174356369366736`*^9, 
   3.7174365975981617`*^9, 3.717436711105962*^9, 3.7186346242321916`*^9, 
   3.718636279091612*^9, 3.7186374138874054`*^9, 3.7186388708227644`*^9, 
   3.718638955515313*^9, 3.718639032875849*^9, 3.7186393748772497`*^9, 
   3.7186455602855935`*^9, 3.718646086555318*^9, 3.7186464594915733`*^9, 
   3.7186467548000917`*^9, 3.725107346459418*^9, 3.7251074543960075`*^9, 
   3.725107517890119*^9, 3.725107681690407*^9, 3.7251077763513727`*^9, 
   3.725108055602064*^9, 3.727833442969391*^9, 3.729943910589607*^9, 
   3.729943968188688*^9, 3.8553593570152607`*^9, 3.8553594988814936`*^9, 
   3.855359548570653*^9, 3.855359646043196*^9, 3.8553597214596424`*^9, 
   3.8553597824631243`*^9, 3.855359832670499*^9, 3.8553599123329186`*^9, {
   3.8553599847023983`*^9, 3.8553600104604588`*^9}, 3.855360046803051*^9, 
   3.855360127295061*^9, 3.855360176972501*^9, 3.85536021167727*^9},
 FontSize->24,ExpressionUUID->"fcb6adce-bdc7-4f18-babc-7331a9c518d2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Degv", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"mon", ",", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Deg", "[", 
        RowBox[{"mon", ",", 
         SubscriptBox["x", "i"]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "L"}], "}"}]}], "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.673476771193263*^9, 3.673476785369278*^9}, {
  3.673476863602256*^9, 3.67347686447688*^9}, {3.6734769395092993`*^9, 
  3.6734769632436943`*^9}},
 FontSize->24,ExpressionUUID->"d11e8e5f-f51f-4976-b34c-069025a78189"],

Cell[BoxData[
 RowBox[{
  RowBox[{"qMon", "=", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"mon", ",", "cokel"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"dv", "=", 
         RowBox[{"Degv", "[", "mon", "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Cok1", "[", "dv", "]"}], "\[Equal]", "cokel"}], ",", 
         RowBox[{
          RowBox[{"q", "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"dv", ".", 
               RowBox[{"(", 
                RowBox[{"MI", ".", "dv"}], ")"}]}]}], "/", "4"}], ")"}]}], 
          "*", 
          RowBox[{"(", 
           RowBox[{"mon", "/.", 
            RowBox[{"{", 
             RowBox[{
              SubscriptBox["x", "_"], "\[Rule]", "1"}], "}"}]}], ")"}]}], ",",
          "0"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6734770762354403`*^9, 3.6734772545653877`*^9}, {
   3.6734779625350933`*^9, 3.673477982212817*^9}, {3.673478179685677*^9, 
   3.673478209236949*^9}, 3.673478258065691*^9, {3.673769367042984*^9, 
   3.673769426346875*^9}, {3.673800592051923*^9, 3.673800613773242*^9}, 
   3.67400799589417*^9, 3.6760520762893257`*^9},
 FontSize->24,ExpressionUUID->"4d34ccbf-990f-4b31-91de-49cf412de1de"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qLap", "=", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"expr", ",", "cokel"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"q", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "3"}], "*", 
         RowBox[{"L", "/", "4"}]}], "-", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{"M", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "L"}], "}"}]}], "]"}], "/", "4"}]}], ")"}]}], 
     "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"qMon", "[", 
         RowBox[{"#", ",", "cokel"}], "]"}], "&"}], "/@", "expr"}], ")"}]}]}],
    "]"}]}]], "Input",
 CellChangeTimes->{{3.673477259515781*^9, 3.673477343023877*^9}, {
   3.6760518030369864`*^9, 3.676051870730977*^9}, {3.67605193571251*^9, 
   3.676051936908161*^9}, 3.6760521804816236`*^9},
 FontSize->24,ExpressionUUID->"02ed07ec-b977-40b5-9a48-9a9ef4b4e4b4"],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"expr", ",", "cokel"}], "}"}], ",", 
   RowBox[{
    SuperscriptBox["q", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"3", " ", "L"}], "4"]}], "-", 
      RowBox[{
       FractionBox["1", "4"], " ", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", "i", "L"], 
        RowBox[{"M", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "i"}], "\[RightDoubleBracket]"}]}]}]}]], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"qMon", "[", 
        RowBox[{"#1", ",", "cokel"}], "]"}], "&"}], ")"}], "/@", "expr"}]}]}],
   "]"}]], "Output",
 CellChangeTimes->{
  3.673477343964438*^9, 3.673477430496326*^9, {3.673477470193099*^9, 
   3.673477484185404*^9}, 3.673477517626783*^9, {3.6734775577506742`*^9, 
   3.6734776046258183`*^9}, {3.673477887301465*^9, 3.673477909105565*^9}, 
   3.673477988199244*^9, 3.673478021196744*^9, {3.673478059002201*^9, 
   3.673478118574847*^9}, 3.6734782129662943`*^9, 3.673478261617613*^9, 
   3.673478328418034*^9, 3.6734783846770277`*^9, 3.673478421716851*^9, 
   3.673478454684248*^9, {3.6734785265439568`*^9, 3.673478542072709*^9}, 
   3.673478604556697*^9, {3.6734786634515963`*^9, 3.673478699424643*^9}, {
   3.673478756275516*^9, 3.673478779814315*^9}, {3.6734788278399487`*^9, 
   3.673478854919073*^9}, {3.6734789151124973`*^9, 3.6734789221683397`*^9}, 
   3.6734793784448833`*^9, 3.673479454730389*^9, {3.673479490102927*^9, 
   3.673479513797323*^9}, {3.673479587839203*^9, 3.673479610157838*^9}, 
   3.673479987360628*^9, {3.673480084673911*^9, 3.6734800920121193`*^9}, {
   3.673480134897807*^9, 3.67348014581281*^9}, {3.6734802012047243`*^9, 
   3.673480225648127*^9}, 3.6734803008328447`*^9, 3.673480561112234*^9, 
   3.6734806129642773`*^9, 3.6734806709420958`*^9, 3.673704514106683*^9, {
   3.673704592705069*^9, 3.6737046512902117`*^9}, {3.673704718748562*^9, 
   3.673704886334001*^9}, {3.673705031293635*^9, 3.673705051298802*^9}, {
   3.673705090100442*^9, 3.6737051381896048`*^9}, {3.673705195128909*^9, 
   3.673705230491913*^9}, 3.6737052639187202`*^9, {3.6737053636728783`*^9, 
   3.6737053761721582`*^9}, 3.6737054356571627`*^9, {3.67370551310083*^9, 
   3.673705518177616*^9}, {3.673705556553412*^9, 3.673705629245056*^9}, 
   3.673757531107647*^9, 3.673758043722186*^9, 3.673758212963088*^9, 
   3.6737582752260237`*^9, 3.673758316019046*^9, {3.67375858896504*^9, 
   3.673758630390441*^9}, 3.673758686833824*^9, {3.673759085496832*^9, 
   3.6737591352598753`*^9}, 3.673759555444536*^9, {3.6737598744761333`*^9, 
   3.6737598915246363`*^9}, 3.6737691336676207`*^9, 3.673769430900908*^9, 
   3.673800298573991*^9, 3.673800367118003*^9, {3.673800601666786*^9, 
   3.673800616949792*^9}, {3.673800672646431*^9, 3.673800695513626*^9}, 
   3.6738007578055067`*^9, 3.673800839991891*^9, 3.6738008836472797`*^9, 
   3.673917559286314*^9, 3.674007822623064*^9, {3.6740078630506287`*^9, 
   3.674007886180978*^9}, 3.674008011406559*^9, 3.674008192047976*^9, 
   3.674008245778976*^9, {3.674019869027364*^9, 3.674019887055636*^9}, 
   3.674020025876068*^9, 3.674020083131933*^9, 3.6740201658219748`*^9, 
   3.674020394565889*^9, 3.6740204577436247`*^9, 3.674025478058765*^9, 
   3.6740256767995377`*^9, 3.674025720211515*^9, 3.67402576348604*^9, {
   3.6740258009300203`*^9, 3.6740258217770023`*^9}, 3.6740259660303583`*^9, 
   3.674026042286098*^9, 3.6740261173008833`*^9, 3.674026285900049*^9, 
   3.6749447450965767`*^9, 3.6749451477558603`*^9, 3.674945579091835*^9, 
   3.674946591673674*^9, 3.674946634393162*^9, 3.674947914092621*^9, 
   3.674948000480287*^9, 3.6749480506588573`*^9, 3.6749480807188587`*^9, 
   3.674948119785179*^9, 3.674948177005982*^9, {3.674948241258003*^9, 
   3.6749482683089952`*^9}, 3.674948395326941*^9, 3.674948499025518*^9, 
   3.674948540157117*^9, 3.674949074439769*^9, 3.6749492163232822`*^9, {
   3.6749505050530863`*^9, 3.674950521217552*^9}, {3.6749505922971697`*^9, 
   3.674950620854344*^9}, 3.674950680512196*^9, {3.674950718528574*^9, 
   3.674950761778446*^9}, {3.674950815062777*^9, 3.674950839203905*^9}, 
   3.674950888130617*^9, 3.674951028058422*^9, {3.674951085507948*^9, 
   3.674951096092739*^9}, 3.674951172596342*^9, 3.674951541768906*^9, 
   3.674951578189478*^9, 3.6749516561382217`*^9, 3.6749517850780697`*^9, 
   3.674951890915042*^9, 3.6749522288366957`*^9, {3.674954527893819*^9, 
   3.674954543444161*^9}, 3.674954616836133*^9, 3.674954683871413*^9, 
   3.674954740672104*^9, 3.6749548851765327`*^9, 3.674955072503098*^9, 
   3.675002252344651*^9, {3.675002383965644*^9, 3.675002407520752*^9}, 
   3.675002497997203*^9, 3.675010079346615*^9, {3.675010122613044*^9, 
   3.675010127875313*^9}, 3.675010204363278*^9, 3.6750103097698107`*^9, {
   3.675010362263722*^9, 3.675010372727601*^9}, 3.675010426339867*^9, 
   3.6750104708403378`*^9, 3.675010516878756*^9, 3.675010645736755*^9, 
   3.675010759981048*^9, 3.675010981411274*^9, 3.675011024023652*^9, 
   3.675011066691464*^9, 3.675011277324069*^9, 3.675012117867347*^9, 
   3.675012183440137*^9, 3.6750122891468678`*^9, 3.675012605398884*^9, {
   3.6750129819772387`*^9, 3.675013011871352*^9}, 3.6750130715442677`*^9, 
   3.675013108873353*^9, 3.675013914846017*^9, 3.675013975839272*^9, 
   3.6750946395540657`*^9, 3.6750951285614223`*^9, 3.6755212344971313`*^9, 
   3.6755214174406853`*^9, 3.6755215816332808`*^9, 3.675521740278385*^9, 
   3.675521799907056*^9, 3.675521896866022*^9, 3.675521963384388*^9, 
   3.6755227070799627`*^9, 3.6755241464254208`*^9, 3.675524326839547*^9, 
   3.675524527020832*^9, {3.6755250807659082`*^9, 3.675525107009712*^9}, {
   3.675525774889044*^9, 3.675525792173709*^9}, 3.675525975707252*^9, {
   3.675527058305325*^9, 3.675527078483202*^9}, 3.675527109802641*^9, 
   3.676051616082323*^9, 3.676051655898765*^9, {3.676051872887456*^9, 
   3.676051970107621*^9}, 3.676052095303403*^9, {3.676052181812546*^9, 
   3.676052207145728*^9}, 3.676052244830283*^9, {3.6760522973396807`*^9, 
   3.676052323899872*^9}, 3.676052839330658*^9, {3.676052929698803*^9, 
   3.6760529406809387`*^9}, 3.682442624704864*^9, {3.682632916779366*^9, 
   3.682632950646907*^9}, {3.682633115596381*^9, 3.682633130998798*^9}, 
   3.717364733123701*^9, 3.717364799880836*^9, 3.7173754952042184`*^9, 
   3.71737558737018*^9, 3.7173759997287045`*^9, 3.717432875453768*^9, 
   3.717433038754855*^9, 3.7174355574691343`*^9, 3.717435592132395*^9, 
   3.717435636983474*^9, 3.7174365976449623`*^9, 3.7174367111527615`*^9, 
   3.7186346243413916`*^9, 3.7186362791540117`*^9, 3.7186374139654055`*^9, 
   3.7186388708851643`*^9, 3.7186389555621133`*^9, 3.718639032938249*^9, 
   3.7186393749396496`*^9, 3.718645560347994*^9, 3.7186460866021185`*^9, 
   3.718646459553973*^9, 3.7186467548468924`*^9, 3.725107346568618*^9, 
   3.7251074544272075`*^9, 3.725107517936919*^9, 3.7251076817372065`*^9, 
   3.725107776413773*^9, 3.725108055680064*^9, 3.7278334430317907`*^9, 
   3.729943910659607*^9, 3.7299439682286882`*^9, 3.855359357125352*^9, 
   3.8553594989562654`*^9, 3.8553595486517997`*^9, 3.8553596511982985`*^9, 
   3.855359721522649*^9, 3.8553597825326443`*^9, 3.855359837578672*^9, 
   3.855359912742277*^9, 3.8553599847760243`*^9, 3.8553600152551937`*^9, 
   3.8553600469312406`*^9, 3.855360127413839*^9, 3.8553601770582633`*^9, 
   3.8553602118134155`*^9},
 FontSize->24,ExpressionUUID->"a9dee41d-615c-442e-adad-a08e8c33953f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ordx", "=", "20"}], ";"}]], "Input",
 CellChangeTimes->{{3.6740194160664454`*^9, 3.674019421364019*^9}, {
   3.6740201842920847`*^9, 3.674020184403892*^9}, {3.6749505179994297`*^9, 
   3.674950518197694*^9}, {3.6749508351600018`*^9, 3.674950835237699*^9}, {
   3.674952135599888*^9, 3.6749521361966667`*^9}, {3.674952755336688*^9, 
   3.674952786645357*^9}, {3.6749528578721037`*^9, 3.674952858015068*^9}, {
   3.674954946864032*^9, 3.674954947246394*^9}, {3.675010151056713*^9, 
   3.675010151111064*^9}, {3.675010563426758*^9, 3.675010563460223*^9}, {
   3.675010634298559*^9, 3.6750106343719387`*^9}, 3.675012176853598*^9, {
   3.675012691139988*^9, 3.675012691677065*^9}, {3.675013092670068*^9, 
   3.675013094485127*^9}, {3.675013172567897*^9, 3.675013176135586*^9}, {
   3.675521408269475*^9, 3.675521408380969*^9}, 3.675521512787768*^9, {
   3.675521785780778*^9, 3.675521791050877*^9}, {3.675522876835181*^9, 
   3.675522876986567*^9}, {3.676052358822361*^9, 3.676052358904492*^9}, {
   3.682632926600329*^9, 3.682632943237715*^9}, {3.682633127871882*^9, 
   3.6826331279437113`*^9}},
 FontSize->24,ExpressionUUID->"88af0ce3-ed01-4e31-9cdb-39eb5016d6ea"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Fx0", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"vfac", "=", 
        RowBox[{"1", "/", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["x", "v"], "-", 
            RowBox[{"1", "/", 
             SubscriptBox["x", "v"]}]}], ")"}], "^", 
          RowBox[{"Delta", "[", 
           RowBox[{"[", "v", "]"}], "]"}]}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Fx0", "*=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1", "*", 
            RowBox[{"Normal", "[", 
             RowBox[{"Series", "[", 
              RowBox[{"vfac", ",", 
               RowBox[{"{", 
                RowBox[{
                 SubscriptBox["x", "v"], ",", "0", ",", "ordx"}], "}"}]}], 
              "]"}], "]"}]}], "+", 
           RowBox[{"1", "*", 
            RowBox[{"Normal", "[", 
             RowBox[{"Series", "[", 
              RowBox[{"vfac", ",", 
               RowBox[{"{", 
                RowBox[{
                 SubscriptBox["x", "v"], ",", "Infinity", ",", "ordx"}], 
                "}"}]}], "]"}], "]"}]}]}], ")"}], "/", "2"}]}], ";"}]}], 
     "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"v", ",", "L"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fx", "=", 
   RowBox[{"Fx0", "//", "Expand"}]}], ";"}], "\[IndentingNewLine]"}], "Input",\

 CellChangeTimes->{{3.673757556893652*^9, 3.6737576606352654`*^9}, {
   3.673757693781375*^9, 3.673757804183982*^9}, {3.6740193747965307`*^9, 
   3.674019384656158*^9}, {3.674019428191143*^9, 3.6740196747302837`*^9}, 
   3.6740197097219963`*^9, {3.6750101154104843`*^9, 3.675010119440691*^9}, {
   3.675010353126088*^9, 3.67501035584991*^9}, {3.6750105444199133`*^9, 
   3.6750105491646833`*^9}, {3.675012282963126*^9, 3.6750122850624228`*^9}, {
   3.675012567288578*^9, 3.6750125696895*^9}, {3.675012783008225*^9, 
   3.6750127859121857`*^9}, {3.675012819241994*^9, 3.675012820227903*^9}, {
   3.675095120069727*^9, 3.6750951226164*^9}},
 FontSize->24,ExpressionUUID->"c139749d-352b-4d00-8f8d-58e576841dca"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tLap", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Series", "[", 
           RowBox[{
            RowBox[{"qLap", "[", 
             RowBox[{"Fx", ",", "cel"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"q", ",", "0", ",", "100"}], "}"}]}], "]"}], "//", 
          "Normal"}], "//", "Simplify"}], ",", "cel", ",", 
        RowBox[{"Mod", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "cel"}], "-", 
           RowBox[{"MI", ".", "Delta"}]}], ",", "1"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"cel", ",", "Coker"}], "}"}]}], "]"}], "//", "Simplify"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"tLap", "//", "TableForm"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.673477688654746*^9, 3.673477727339418*^9}, {
   3.673477768733947*^9, 3.673477785924254*^9}, {3.67347789324128*^9, 
   3.673477898316945*^9}, {3.673478285676125*^9, 3.673478289141103*^9}, {
   3.6734783347864723`*^9, 3.673478376246531*^9}, {3.673478451720475*^9, 
   3.673478451784059*^9}, {3.673478611068364*^9, 3.673478616690175*^9}, 
   3.673478956190885*^9, {3.673479785080269*^9, 3.673479815100445*^9}, {
   3.673479868886181*^9, 3.673479924082067*^9}, {3.673480112138061*^9, 
   3.6734801300868063`*^9}, {3.6737582335064707`*^9, 3.673758235919018*^9}, 
   3.673758271423669*^9, 3.674019699698637*^9, {3.674020639950802*^9, 
   3.6740206432201633`*^9}, {3.6749459723781767`*^9, 3.674946007804473*^9}, {
   3.674946557248459*^9, 3.674946575689294*^9}, 3.67494794711617*^9, {
   3.674948405182788*^9, 3.674948420451435*^9}, {3.6749492667846413`*^9, 
   3.674949277660776*^9}, {3.674950417816338*^9, 3.6749504191788273`*^9}, {
   3.674950845619915*^9, 3.6749508528314877`*^9}, {3.6749519728004827`*^9, 
   3.67495197358854*^9}, {3.674952742162488*^9, 3.6749527461957808`*^9}, 
   3.674954536166587*^9, {3.674954691795627*^9, 3.674954697020129*^9}, {
   3.6749549892282457`*^9, 3.674954998693407*^9}, {3.675002263093421*^9, 
   3.6750022634400673`*^9}, {3.6750101614619837`*^9, 
   3.6750101615765457`*^9}, {3.675010640539879*^9, 3.6750106425941277`*^9}, {
   3.675010792233809*^9, 3.675010823933566*^9}, 3.675010874897255*^9, {
   3.675011270211432*^9, 3.675011272720684*^9}, 3.6750121796520243`*^9, {
   3.675013537286951*^9, 3.675013538038692*^9}, {3.675521281377639*^9, 
   3.675521284808339*^9}, {3.6755214127820663`*^9, 3.675521412852953*^9}, {
   3.6755214494676037`*^9, 3.675521474942164*^9}, {3.675521521132451*^9, 
   3.675521521363495*^9}, 3.675521551562007*^9, {3.675521795924294*^9, 
   3.675521796211075*^9}, {3.675521828895873*^9, 3.67552182902427*^9}, 
   3.675521863830393*^9, {3.675521932959165*^9, 3.675521935380286*^9}, 
   3.6755228447579327`*^9, {3.675522884564066*^9, 3.675522884650387*^9}, {
   3.6760523616893587`*^9, 3.6760523619759493`*^9}, 3.676052904218597*^9, {
   3.682632945799355*^9, 3.682632945878392*^9}, {3.682633169766271*^9, 
   3.682633186604591*^9}, 3.7174355759551663`*^9, {3.717435615017635*^9, 
   3.717435615423236*^9}, {3.7186390177126226`*^9, 3.7186390177594223`*^9}, {
   3.855359613659117*^9, 3.855359613721465*^9}},
 FontSize->24,ExpressionUUID->"a9583e4e-943e-49eb-9caa-b0c9ade2ac84"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     FractionBox[
      RowBox[{"1", "-", 
       RowBox[{"2", " ", "q"}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "4"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "5"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "8"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "9"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "10"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "13"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "16"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "17"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "18"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "20"]}], "-", 
       RowBox[{"6", " ", 
        SuperscriptBox["q", "25"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "26"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "29"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "32"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "34"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "36"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "37"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "40"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "41"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "45"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "49"]}], "-", 
       RowBox[{"5", " ", 
        SuperscriptBox["q", "50"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "52"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "53"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "58"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "64"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "65"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "68"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "81"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "82"]}], "-", 
       SuperscriptBox["q", "100"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["q", 
        RowBox[{"3", "/", "4"}]]}]], GridBox[{
       {"0"},
       {"0"},
       {"0"},
       {"0"},
       {"0"},
       {"0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {
        FractionBox["1", "2"]},
       {"0"},
       {
        FractionBox["1", "2"]},
       {"0"},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "2"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]},
    {
     FractionBox[
      RowBox[{"2", "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "6"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "8"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "12"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "14"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "18"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "20"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "22"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "26"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "30"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "32"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "36"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "40"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "42"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "44"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "48"]}], "+", 
       SuperscriptBox["q", "50"], "+", 
       SuperscriptBox["q", "54"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "56"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "58"]}], "-", 
       SuperscriptBox["q", "60"], "+", 
       SuperscriptBox["q", "62"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "72"]}], "+", 
       SuperscriptBox["q", "74"], "+", 
       SuperscriptBox["q", "84"], "+", 
       SuperscriptBox["q", "90"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["q", 
        RowBox[{"1", "/", "4"}]]}]], GridBox[{
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "4"]},
       {"0"},
       {"0"},
       {
        FractionBox["1", "2"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "4"]},
       {"0"},
       {
        FractionBox["1", "2"]},
       {"0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]},
    {
     FractionBox[
      RowBox[{"2", "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "6"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "8"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "12"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "14"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "18"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "20"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "22"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "26"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "30"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "32"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "36"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "40"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "42"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "44"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "48"]}], "+", 
       SuperscriptBox["q", "50"], "+", 
       SuperscriptBox["q", "54"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "56"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "58"]}], "-", 
       SuperscriptBox["q", "60"], "+", 
       SuperscriptBox["q", "62"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "72"]}], "+", 
       SuperscriptBox["q", "74"], "+", 
       SuperscriptBox["q", "84"], "+", 
       SuperscriptBox["q", "90"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["q", 
        RowBox[{"1", "/", "4"}]]}]], GridBox[{
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "4"]},
       {"0"},
       {
        FractionBox["1", "2"]},
       {"0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "4"]},
       {"0"},
       {"0"},
       {
        FractionBox["1", "2"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]},
    {
     FractionBox[
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "q"}], "-", 
       SuperscriptBox["q", "2"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "4"]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["q", "6"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "9"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "11"]}], "-", 
       SuperscriptBox["q", "12"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "15"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "16"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "18"]}], "+", 
       SuperscriptBox["q", "20"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "22"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "25"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "27"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "28"]}], "-", 
       SuperscriptBox["q", "30"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "31"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "36"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "37"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "38"]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["q", "42"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "45"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "48"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "49"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "51"]}], "+", 
       SuperscriptBox["q", "55"], "-", 
       SuperscriptBox["q", "58"], "+", 
       SuperscriptBox["q", "61"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "64"]}], "-", 
       SuperscriptBox["q", "65"], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["q", "66"]}], "-", 
       SuperscriptBox["q", "67"], "+", 
       SuperscriptBox["q", "69"], "+", 
       SuperscriptBox["q", "70"], "-", 
       SuperscriptBox["q", "78"], "+", 
       SuperscriptBox["q", "79"], "+", 
       SuperscriptBox["q", "83"], "+", 
       SuperscriptBox["q", "84"], "+", 
       SuperscriptBox["q", "87"], "-", 
       SuperscriptBox["q", "88"], "-", 
       SuperscriptBox["q", "90"], "-", 
       SuperscriptBox["q", "92"], "+", 
       SuperscriptBox["q", "93"], "-", 
       SuperscriptBox["q", "97"], "-", 
       SuperscriptBox["q", "99"], "+", 
       SuperscriptBox["q", "100"], "+", 
       SuperscriptBox["q", "101"]}], 
      RowBox[{"2", " ", 
       SqrtBox["q"]}]], GridBox[{
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["3", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "4"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["3", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "4"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]},
    {
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "q"}], "+", 
       SuperscriptBox["q", "2"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "4"]}], "+", 
       SuperscriptBox["q", "6"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "9"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "11"]}], "+", 
       SuperscriptBox["q", "12"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "15"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "16"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "18"]}], "-", 
       SuperscriptBox["q", "20"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "22"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "25"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "27"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "28"]}], "+", 
       SuperscriptBox["q", "30"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "31"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "36"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "37"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "38"]}], "+", 
       SuperscriptBox["q", "42"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "45"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "48"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "49"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "51"]}], "+", 
       SuperscriptBox["q", "55"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "56"]}], "-", 
       SuperscriptBox["q", "58"], "+", 
       SuperscriptBox["q", "61"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "64"]}], "-", 
       SuperscriptBox["q", "65"], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["q", "66"]}], "-", 
       SuperscriptBox["q", "67"], "+", 
       SuperscriptBox["q", "69"], "+", 
       SuperscriptBox["q", "70"], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "72"]}], "-", 
       SuperscriptBox["q", "78"], "+", 
       SuperscriptBox["q", "79"], "+", 
       SuperscriptBox["q", "83"], "+", 
       SuperscriptBox["q", "84"], "+", 
       SuperscriptBox["q", "87"], "-", 
       SuperscriptBox["q", "88"], "+", 
       SuperscriptBox["q", "90"], "-", 
       SuperscriptBox["q", "92"], "+", 
       SuperscriptBox["q", "93"], "-", 
       SuperscriptBox["q", "97"], "-", 
       SuperscriptBox["q", "99"], "+", 
       SuperscriptBox["q", "101"]}], 
      RowBox[{"2", " ", 
       SqrtBox["q"]}]], GridBox[{
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["3", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["3", "4"]},
       {
        FractionBox["3", "4"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["3", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["3", "4"]},
       {
        FractionBox["3", "4"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]},
    {
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "-", 
       RowBox[{"2", " ", "q"}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "4"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "5"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "8"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "9"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "10"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "13"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "16"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "17"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "18"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "20"]}], "-", 
       RowBox[{"6", " ", 
        SuperscriptBox["q", "25"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "26"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "29"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "32"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "34"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "36"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "37"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "40"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "41"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "45"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "49"]}], "-", 
       RowBox[{"5", " ", 
        SuperscriptBox["q", "50"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "52"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "53"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "58"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "64"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "65"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "68"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "81"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "82"]}]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["q", 
        RowBox[{"3", "/", "4"}]]}]], GridBox[{
       {
        FractionBox["1", "2"]},
       {"0"},
       {
        FractionBox["1", "2"]},
       {"0"},
       {"0"},
       {"0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0"},
       {"0"},
       {"0"},
       {"0"},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "2"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]},
    {
     FractionBox[
      RowBox[{"1", "-", 
       RowBox[{"2", " ", "q"}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "4"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "5"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "8"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "9"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "10"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "13"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "16"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "17"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "18"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "20"]}], "-", 
       RowBox[{"6", " ", 
        SuperscriptBox["q", "25"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "26"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "29"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "32"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "34"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "36"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "37"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "40"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "41"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "45"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "49"]}], "-", 
       RowBox[{"5", " ", 
        SuperscriptBox["q", "50"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "52"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "53"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "58"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "64"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["q", "65"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "68"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "81"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "82"]}], "-", 
       SuperscriptBox["q", "100"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["q", 
        RowBox[{"3", "/", "4"}]]}]], GridBox[{
       {
        FractionBox["1", "2"]},
       {"0"},
       {
        FractionBox["1", "2"]},
       {"0"},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "2"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0"},
       {"0"},
       {"0"},
       {"0"},
       {"0"},
       {"0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]},
    {
     FractionBox[
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "q"}], "-", 
       SuperscriptBox["q", "2"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "4"]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["q", "6"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "9"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "11"]}], "-", 
       SuperscriptBox["q", "12"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "15"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "16"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "18"]}], "+", 
       SuperscriptBox["q", "20"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "22"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "25"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "27"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "28"]}], "-", 
       SuperscriptBox["q", "30"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "31"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "36"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "37"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "38"]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["q", "42"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "45"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "48"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "49"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "51"]}], "+", 
       SuperscriptBox["q", "55"], "-", 
       SuperscriptBox["q", "58"], "+", 
       SuperscriptBox["q", "61"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "64"]}], "-", 
       SuperscriptBox["q", "65"], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["q", "66"]}], "-", 
       SuperscriptBox["q", "67"], "+", 
       SuperscriptBox["q", "69"], "+", 
       SuperscriptBox["q", "70"], "-", 
       SuperscriptBox["q", "78"], "+", 
       SuperscriptBox["q", "79"], "+", 
       SuperscriptBox["q", "83"], "+", 
       SuperscriptBox["q", "84"], "+", 
       SuperscriptBox["q", "87"], "-", 
       SuperscriptBox["q", "88"], "-", 
       SuperscriptBox["q", "90"], "-", 
       SuperscriptBox["q", "92"], "+", 
       SuperscriptBox["q", "93"], "-", 
       SuperscriptBox["q", "97"], "-", 
       SuperscriptBox["q", "99"], "+", 
       SuperscriptBox["q", "100"], "+", 
       SuperscriptBox["q", "101"]}], 
      RowBox[{"2", " ", 
       SqrtBox["q"]}]], GridBox[{
       {
        FractionBox["3", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "4"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {
        FractionBox["3", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "4"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]},
    {
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "q"}], "+", 
       SuperscriptBox["q", "2"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "4"]}], "+", 
       SuperscriptBox["q", "6"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "9"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "11"]}], "+", 
       SuperscriptBox["q", "12"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "15"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "16"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "18"]}], "-", 
       SuperscriptBox["q", "20"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "22"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "25"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "27"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "28"]}], "+", 
       SuperscriptBox["q", "30"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "31"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "36"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "37"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "38"]}], "+", 
       SuperscriptBox["q", "42"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "45"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "48"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "49"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "51"]}], "+", 
       SuperscriptBox["q", "55"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "56"]}], "-", 
       SuperscriptBox["q", "58"], "+", 
       SuperscriptBox["q", "61"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "64"]}], "-", 
       SuperscriptBox["q", "65"], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["q", "66"]}], "-", 
       SuperscriptBox["q", "67"], "+", 
       SuperscriptBox["q", "69"], "+", 
       SuperscriptBox["q", "70"], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "72"]}], "-", 
       SuperscriptBox["q", "78"], "+", 
       SuperscriptBox["q", "79"], "+", 
       SuperscriptBox["q", "83"], "+", 
       SuperscriptBox["q", "84"], "+", 
       SuperscriptBox["q", "87"], "-", 
       SuperscriptBox["q", "88"], "+", 
       SuperscriptBox["q", "90"], "-", 
       SuperscriptBox["q", "92"], "+", 
       SuperscriptBox["q", "93"], "-", 
       SuperscriptBox["q", "97"], "-", 
       SuperscriptBox["q", "99"], "+", 
       SuperscriptBox["q", "101"]}], 
      RowBox[{"2", " ", 
       SqrtBox["q"]}]], GridBox[{
       {
        FractionBox["3", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["3", "4"]},
       {
        FractionBox["3", "4"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {
        FractionBox["3", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["1", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["3", "4"]},
       {
        FractionBox["3", "4"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]},
    {
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["q", 
       RowBox[{"7", "/", "4"}]], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "2"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "4"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "6"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "10"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "12"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "16"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "18"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "20"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "22"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "24"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "28"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["q", "30"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "34"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["q", "40"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "42"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "46"]}], "+", 
        SuperscriptBox["q", "48"], "+", 
        SuperscriptBox["q", "52"], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "54"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "56"]}], "+", 
        SuperscriptBox["q", "58"], "+", 
        SuperscriptBox["q", "60"], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "70"]}], "+", 
        SuperscriptBox["q", "72"], "-", 
        SuperscriptBox["q", "82"], "+", 
        SuperscriptBox["q", "88"]}], ")"}]}], GridBox[{
       {
        FractionBox["3", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["3", "4"]},
       {"0"},
       {"0"},
       {
        FractionBox["1", "2"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {
        FractionBox["3", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["3", "4"]},
       {"0"},
       {
        FractionBox["1", "2"]},
       {"0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]},
    {
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["q", 
       RowBox[{"7", "/", "4"}]], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "2"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "4"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "6"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "10"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "12"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "16"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "18"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "20"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "22"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "24"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "28"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["q", "30"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "34"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["q", "40"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "42"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "46"]}], "+", 
        SuperscriptBox["q", "48"], "+", 
        SuperscriptBox["q", "52"], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "54"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "56"]}], "+", 
        SuperscriptBox["q", "58"], "+", 
        SuperscriptBox["q", "60"], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "70"]}], "+", 
        SuperscriptBox["q", "72"], "-", 
        SuperscriptBox["q", "82"], "+", 
        SuperscriptBox["q", "88"]}], ")"}]}], GridBox[{
       {
        FractionBox["3", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["3", "4"]},
       {"0"},
       {
        FractionBox["1", "2"]},
       {"0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {
        FractionBox["3", "4"]},
       {
        FractionBox["1", "2"]},
       {
        FractionBox["3", "4"]},
       {"0"},
       {"0"},
       {
        FractionBox["1", "2"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{
    Rational[1, 4] $CellContext`q^Rational[-3, 4] (1 - 2 $CellContext`q - 
      2 $CellContext`q^2 - 2 $CellContext`q^4 - 4 $CellContext`q^5 - 
      2 $CellContext`q^8 - 2 $CellContext`q^9 - 4 $CellContext`q^10 - 
      4 $CellContext`q^13 - 2 $CellContext`q^16 - 4 $CellContext`q^17 - 
      2 $CellContext`q^18 - 4 $CellContext`q^20 - 6 $CellContext`q^25 - 
      4 $CellContext`q^26 - 4 $CellContext`q^29 - 2 $CellContext`q^32 - 
      4 $CellContext`q^34 - 2 $CellContext`q^36 - 4 $CellContext`q^37 - 
      4 $CellContext`q^40 - 4 $CellContext`q^41 - 4 $CellContext`q^45 - 
      2 $CellContext`q^49 - 5 $CellContext`q^50 - 2 $CellContext`q^52 - 
      4 $CellContext`q^53 - 2 $CellContext`q^58 - 2 $CellContext`q^64 - 
      4 $CellContext`q^65 - 2 $CellContext`q^68 - 2 $CellContext`q^81 - 
      2 $CellContext`q^82 - $CellContext`q^100), {0, 0, 0, 0, 0, 0}, {
      Rational[1, 2], 0, 
      Rational[1, 2], 0, 
      Rational[1, 2], 
      Rational[1, 2]}}, {
    Rational[1, 2] $CellContext`q^Rational[-1, 4] (2 + 2 $CellContext`q^2 + 
      2 $CellContext`q^6 + 2 $CellContext`q^8 + 4 $CellContext`q^12 + 
      2 $CellContext`q^14 + 2 $CellContext`q^18 + 2 $CellContext`q^20 + 
      2 $CellContext`q^22 + 2 $CellContext`q^26 + 2 $CellContext`q^30 + 
      4 $CellContext`q^32 + 2 $CellContext`q^36 + 2 $CellContext`q^40 + 
      4 $CellContext`q^42 + 2 $CellContext`q^44 + 
      2 $CellContext`q^48 + $CellContext`q^50 + $CellContext`q^54 + 
      2 $CellContext`q^56 + 
      2 $CellContext`q^58 - $CellContext`q^60 + $CellContext`q^62 + 
      2 $CellContext`q^72 + $CellContext`q^74 + $CellContext`q^84 + \
$CellContext`q^90), {
      Rational[1, 4], 
      Rational[1, 2], 
      Rational[1, 4], 0, 0, 
      Rational[1, 2]}, {
      Rational[1, 4], 
      Rational[1, 2], 
      Rational[1, 4], 0, 
      Rational[1, 2], 0}}, {
    Rational[1, 2] $CellContext`q^Rational[-1, 4] (2 + 2 $CellContext`q^2 + 
      2 $CellContext`q^6 + 2 $CellContext`q^8 + 4 $CellContext`q^12 + 
      2 $CellContext`q^14 + 2 $CellContext`q^18 + 2 $CellContext`q^20 + 
      2 $CellContext`q^22 + 2 $CellContext`q^26 + 2 $CellContext`q^30 + 
      4 $CellContext`q^32 + 2 $CellContext`q^36 + 2 $CellContext`q^40 + 
      4 $CellContext`q^42 + 2 $CellContext`q^44 + 
      2 $CellContext`q^48 + $CellContext`q^50 + $CellContext`q^54 + 
      2 $CellContext`q^56 + 
      2 $CellContext`q^58 - $CellContext`q^60 + $CellContext`q^62 + 
      2 $CellContext`q^72 + $CellContext`q^74 + $CellContext`q^84 + \
$CellContext`q^90), {
      Rational[1, 4], 
      Rational[1, 2], 
      Rational[1, 4], 0, 
      Rational[1, 2], 0}, {
      Rational[1, 4], 
      Rational[1, 2], 
      Rational[1, 4], 0, 0, 
      Rational[1, 2]}}, {
    Rational[1, 2] $CellContext`q^Rational[-1, 2] (1 + 
      2 $CellContext`q - $CellContext`q^2 + 2 $CellContext`q^4 + 
      3 $CellContext`q^6 + 2 $CellContext`q^9 + 
      2 $CellContext`q^11 - $CellContext`q^12 + 2 $CellContext`q^15 + 
      2 $CellContext`q^16 + 2 $CellContext`q^18 + $CellContext`q^20 + 
      2 $CellContext`q^22 + 2 $CellContext`q^25 + 2 $CellContext`q^27 + 
      2 $CellContext`q^28 - $CellContext`q^30 + 2 $CellContext`q^31 + 
      2 $CellContext`q^36 + 2 $CellContext`q^37 + 2 $CellContext`q^38 + 
      3 $CellContext`q^42 + 2 $CellContext`q^45 + 2 $CellContext`q^48 + 
      2 $CellContext`q^49 + 
      2 $CellContext`q^51 + $CellContext`q^55 - $CellContext`q^58 + \
$CellContext`q^61 + 2 $CellContext`q^64 - $CellContext`q^65 + 
      3 $CellContext`q^66 - $CellContext`q^67 + $CellContext`q^69 + \
$CellContext`q^70 - $CellContext`q^78 + $CellContext`q^79 + $CellContext`q^83 + \
$CellContext`q^84 + $CellContext`q^87 - $CellContext`q^88 - $CellContext`q^90 - \
$CellContext`q^92 + $CellContext`q^93 - $CellContext`q^97 - $CellContext`q^99 + \
$CellContext`q^100 + $CellContext`q^101), {
      Rational[1, 4], 
      Rational[1, 2], 
      Rational[3, 4], 
      Rational[1, 2], 
      Rational[1, 4], 
      Rational[1, 4]}, {
      Rational[1, 4], 
      Rational[1, 2], 
      Rational[3, 4], 
      Rational[1, 2], 
      Rational[1, 4], 
      Rational[1, 4]}}, {
    Rational[1, 2] $CellContext`q^Rational[-1, 2] (-1 + 
      2 $CellContext`q + $CellContext`q^2 + 
      2 $CellContext`q^4 + $CellContext`q^6 + 2 $CellContext`q^9 + 
      2 $CellContext`q^11 + $CellContext`q^12 + 2 $CellContext`q^15 + 
      2 $CellContext`q^16 + 2 $CellContext`q^18 - $CellContext`q^20 + 
      2 $CellContext`q^22 + 2 $CellContext`q^25 + 2 $CellContext`q^27 + 
      2 $CellContext`q^28 + $CellContext`q^30 + 2 $CellContext`q^31 + 
      2 $CellContext`q^36 + 2 $CellContext`q^37 + 
      2 $CellContext`q^38 + $CellContext`q^42 + 2 $CellContext`q^45 + 
      2 $CellContext`q^48 + 2 $CellContext`q^49 + 
      2 $CellContext`q^51 + $CellContext`q^55 + 
      2 $CellContext`q^56 - $CellContext`q^58 + $CellContext`q^61 + 
      2 $CellContext`q^64 - $CellContext`q^65 + 
      3 $CellContext`q^66 - $CellContext`q^67 + $CellContext`q^69 + \
$CellContext`q^70 - 
      2 $CellContext`q^72 - $CellContext`q^78 + $CellContext`q^79 + \
$CellContext`q^83 + $CellContext`q^84 + $CellContext`q^87 - $CellContext`q^88 + \
$CellContext`q^90 - $CellContext`q^92 + $CellContext`q^93 - $CellContext`q^97 - \
$CellContext`q^99 + $CellContext`q^101), {
      Rational[1, 4], 
      Rational[1, 2], 
      Rational[3, 4], 
      Rational[1, 2], 
      Rational[3, 4], 
      Rational[3, 4]}, {
      Rational[1, 4], 
      Rational[1, 2], 
      Rational[3, 4], 
      Rational[1, 2], 
      Rational[3, 4], 
      Rational[3, 4]}}, {
    Rational[1, 4] $CellContext`q^Rational[-3, 4] (-1 - 2 $CellContext`q - 
      2 $CellContext`q^2 - 2 $CellContext`q^4 - 4 $CellContext`q^5 - 
      2 $CellContext`q^8 - 2 $CellContext`q^9 - 4 $CellContext`q^10 - 
      4 $CellContext`q^13 - 2 $CellContext`q^16 - 4 $CellContext`q^17 - 
      2 $CellContext`q^18 - 4 $CellContext`q^20 - 6 $CellContext`q^25 - 
      4 $CellContext`q^26 - 4 $CellContext`q^29 - 2 $CellContext`q^32 - 
      4 $CellContext`q^34 - 2 $CellContext`q^36 - 4 $CellContext`q^37 - 
      4 $CellContext`q^40 - 4 $CellContext`q^41 - 4 $CellContext`q^45 - 
      2 $CellContext`q^49 - 5 $CellContext`q^50 - 2 $CellContext`q^52 - 
      4 $CellContext`q^53 - 2 $CellContext`q^58 - 2 $CellContext`q^64 - 
      4 $CellContext`q^65 - 2 $CellContext`q^68 - 2 $CellContext`q^81 - 
      2 $CellContext`q^82), {
      Rational[1, 2], 0, 
      Rational[1, 2], 0, 0, 0}, {0, 0, 0, 0, 
      Rational[1, 2], 
      Rational[1, 2]}}, {
    Rational[1, 4] $CellContext`q^Rational[-3, 4] (1 - 2 $CellContext`q - 
      2 $CellContext`q^2 - 2 $CellContext`q^4 - 4 $CellContext`q^5 - 
      2 $CellContext`q^8 - 2 $CellContext`q^9 - 4 $CellContext`q^10 - 
      4 $CellContext`q^13 - 2 $CellContext`q^16 - 4 $CellContext`q^17 - 
      2 $CellContext`q^18 - 4 $CellContext`q^20 - 6 $CellContext`q^25 - 
      4 $CellContext`q^26 - 4 $CellContext`q^29 - 2 $CellContext`q^32 - 
      4 $CellContext`q^34 - 2 $CellContext`q^36 - 4 $CellContext`q^37 - 
      4 $CellContext`q^40 - 4 $CellContext`q^41 - 4 $CellContext`q^45 - 
      2 $CellContext`q^49 - 5 $CellContext`q^50 - 2 $CellContext`q^52 - 
      4 $CellContext`q^53 - 2 $CellContext`q^58 - 2 $CellContext`q^64 - 
      4 $CellContext`q^65 - 2 $CellContext`q^68 - 2 $CellContext`q^81 - 
      2 $CellContext`q^82 - $CellContext`q^100), {
      Rational[1, 2], 0, 
      Rational[1, 2], 0, 
      Rational[1, 2], 
      Rational[1, 2]}, {0, 0, 0, 0, 0, 0}}, {
    Rational[1, 2] $CellContext`q^Rational[-1, 2] (1 + 
      2 $CellContext`q - $CellContext`q^2 + 2 $CellContext`q^4 + 
      3 $CellContext`q^6 + 2 $CellContext`q^9 + 
      2 $CellContext`q^11 - $CellContext`q^12 + 2 $CellContext`q^15 + 
      2 $CellContext`q^16 + 2 $CellContext`q^18 + $CellContext`q^20 + 
      2 $CellContext`q^22 + 2 $CellContext`q^25 + 2 $CellContext`q^27 + 
      2 $CellContext`q^28 - $CellContext`q^30 + 2 $CellContext`q^31 + 
      2 $CellContext`q^36 + 2 $CellContext`q^37 + 2 $CellContext`q^38 + 
      3 $CellContext`q^42 + 2 $CellContext`q^45 + 2 $CellContext`q^48 + 
      2 $CellContext`q^49 + 
      2 $CellContext`q^51 + $CellContext`q^55 - $CellContext`q^58 + \
$CellContext`q^61 + 2 $CellContext`q^64 - $CellContext`q^65 + 
      3 $CellContext`q^66 - $CellContext`q^67 + $CellContext`q^69 + \
$CellContext`q^70 - $CellContext`q^78 + $CellContext`q^79 + $CellContext`q^83 + \
$CellContext`q^84 + $CellContext`q^87 - $CellContext`q^88 - $CellContext`q^90 - \
$CellContext`q^92 + $CellContext`q^93 - $CellContext`q^97 - $CellContext`q^99 + \
$CellContext`q^100 + $CellContext`q^101), {
      Rational[3, 4], 
      Rational[1, 2], 
      Rational[1, 4], 
      Rational[1, 2], 
      Rational[1, 4], 
      Rational[1, 4]}, {
      Rational[3, 4], 
      Rational[1, 2], 
      Rational[1, 4], 
      Rational[1, 2], 
      Rational[1, 4], 
      Rational[1, 4]}}, {
    Rational[1, 2] $CellContext`q^Rational[-1, 2] (-1 + 
      2 $CellContext`q + $CellContext`q^2 + 
      2 $CellContext`q^4 + $CellContext`q^6 + 2 $CellContext`q^9 + 
      2 $CellContext`q^11 + $CellContext`q^12 + 2 $CellContext`q^15 + 
      2 $CellContext`q^16 + 2 $CellContext`q^18 - $CellContext`q^20 + 
      2 $CellContext`q^22 + 2 $CellContext`q^25 + 2 $CellContext`q^27 + 
      2 $CellContext`q^28 + $CellContext`q^30 + 2 $CellContext`q^31 + 
      2 $CellContext`q^36 + 2 $CellContext`q^37 + 
      2 $CellContext`q^38 + $CellContext`q^42 + 2 $CellContext`q^45 + 
      2 $CellContext`q^48 + 2 $CellContext`q^49 + 
      2 $CellContext`q^51 + $CellContext`q^55 + 
      2 $CellContext`q^56 - $CellContext`q^58 + $CellContext`q^61 + 
      2 $CellContext`q^64 - $CellContext`q^65 + 
      3 $CellContext`q^66 - $CellContext`q^67 + $CellContext`q^69 + \
$CellContext`q^70 - 
      2 $CellContext`q^72 - $CellContext`q^78 + $CellContext`q^79 + \
$CellContext`q^83 + $CellContext`q^84 + $CellContext`q^87 - $CellContext`q^88 + \
$CellContext`q^90 - $CellContext`q^92 + $CellContext`q^93 - $CellContext`q^97 - \
$CellContext`q^99 + $CellContext`q^101), {
      Rational[3, 4], 
      Rational[1, 2], 
      Rational[1, 4], 
      Rational[1, 2], 
      Rational[3, 4], 
      Rational[3, 4]}, {
      Rational[3, 4], 
      Rational[1, 2], 
      Rational[1, 4], 
      Rational[1, 2], 
      Rational[3, 4], 
      Rational[3, 4]}}, {
    Rational[1, 2] $CellContext`q^Rational[7, 4] (2 + 2 $CellContext`q^2 + 
      2 $CellContext`q^4 + 2 $CellContext`q^6 + 2 $CellContext`q^10 + 
      2 $CellContext`q^12 + 2 $CellContext`q^16 + 2 $CellContext`q^18 + 
      2 $CellContext`q^20 + 2 $CellContext`q^22 + 2 $CellContext`q^24 + 
      2 $CellContext`q^28 + 4 $CellContext`q^30 + 2 $CellContext`q^34 + 
      4 $CellContext`q^40 + 2 $CellContext`q^42 + 
      2 $CellContext`q^46 + $CellContext`q^48 + $CellContext`q^52 + 
      2 $CellContext`q^54 + 
      2 $CellContext`q^56 + $CellContext`q^58 + $CellContext`q^60 + 
      2 $CellContext`q^70 + $CellContext`q^72 - $CellContext`q^82 + \
$CellContext`q^88), {
      Rational[3, 4], 
      Rational[1, 2], 
      Rational[3, 4], 0, 0, 
      Rational[1, 2]}, {
      Rational[3, 4], 
      Rational[1, 2], 
      Rational[3, 4], 0, 
      Rational[1, 2], 0}}, {
    Rational[1, 2] $CellContext`q^Rational[7, 4] (2 + 2 $CellContext`q^2 + 
      2 $CellContext`q^4 + 2 $CellContext`q^6 + 2 $CellContext`q^10 + 
      2 $CellContext`q^12 + 2 $CellContext`q^16 + 2 $CellContext`q^18 + 
      2 $CellContext`q^20 + 2 $CellContext`q^22 + 2 $CellContext`q^24 + 
      2 $CellContext`q^28 + 4 $CellContext`q^30 + 2 $CellContext`q^34 + 
      4 $CellContext`q^40 + 2 $CellContext`q^42 + 
      2 $CellContext`q^46 + $CellContext`q^48 + $CellContext`q^52 + 
      2 $CellContext`q^54 + 
      2 $CellContext`q^56 + $CellContext`q^58 + $CellContext`q^60 + 
      2 $CellContext`q^70 + $CellContext`q^72 - $CellContext`q^82 + \
$CellContext`q^88), {
      Rational[3, 4], 
      Rational[1, 2], 
      Rational[3, 4], 0, 
      Rational[1, 2], 0}, {
      Rational[3, 4], 
      Rational[1, 2], 
      Rational[3, 4], 0, 0, 
      Rational[1, 2]}}}]]], "Output",
 CellChangeTimes->{{3.6734778985565643`*^9, 3.6734779092125*^9}, 
   3.673477988314447*^9, 3.673478021336043*^9, {3.673478059143635*^9, 
   3.673478118695158*^9}, 3.6734782130848217`*^9, {3.673478261762789*^9, 
   3.673478289660343*^9}, {3.6734783285386133`*^9, 3.6734783848162813`*^9}, 
   3.6734784218223753`*^9, 3.673478454788636*^9, {3.673478526661544*^9, 
   3.67347854231776*^9}, {3.673478604692574*^9, 3.6734786174018173`*^9}, {
   3.673478663574604*^9, 3.6734786995589447`*^9}, {3.673478756384386*^9, 
   3.673478779956861*^9}, {3.673478827978835*^9, 3.673478855042633*^9}, {
   3.6734789152366257`*^9, 3.673478922308176*^9}, 3.6734789570175056`*^9, 
   3.673479378597743*^9, 3.6734794548647223`*^9, {3.6734794902151012`*^9, 
   3.673479513931829*^9}, {3.673479587978207*^9, 3.673479610296238*^9}, 
   3.673479797717806*^9, 3.673479879971566*^9, 3.673479954136918*^9, 
   3.673479987501452*^9, {3.673480084793235*^9, 3.673480094554132*^9}, {
   3.673480135248714*^9, 3.673480146010454*^9}, {3.673480201339012*^9, 
   3.673480225785741*^9}, 3.67348030103827*^9, 3.6734805613164988`*^9, 
   3.6734806132543077`*^9, 3.6734806711474867`*^9, 3.6737045143512907`*^9, {
   3.673704592918025*^9, 3.673704651506587*^9}, {3.6737047199103327`*^9, 
   3.6737048867251596`*^9}, {3.673705031500441*^9, 3.6737050518297443`*^9}, {
   3.673705090332129*^9, 3.673705138385676*^9}, {3.673705195362439*^9, 
   3.6737052306611433`*^9}, 3.6737052643373632`*^9, {3.673705363856642*^9, 
   3.673705376415605*^9}, 3.6737054358886833`*^9, {3.673705513300498*^9, 
   3.673705518350205*^9}, {3.673705556763074*^9, 3.673705629473899*^9}, 
   3.673758043958063*^9, {3.673758213104599*^9, 3.673758236484211*^9}, 
   3.6737582755810843`*^9, 3.673758316275229*^9, {3.673758589203001*^9, 
   3.673758630575232*^9}, 3.673758687043798*^9, {3.673759085692089*^9, 
   3.673759135523614*^9}, 3.673759555676399*^9, {3.673759874864828*^9, 
   3.6737598920257473`*^9}, 3.6737691339004717`*^9, 3.67376943111768*^9, 
   3.673800298776669*^9, 3.673800367348908*^9, {3.673800601927023*^9, 
   3.673800617479474*^9}, {3.6738006729168262`*^9, 3.673800695764168*^9}, 
   3.673800758065336*^9, 3.673800840532537*^9, 3.6738008839021387`*^9, 
   3.673917559684083*^9, 3.67400782406684*^9, {3.674007873693227*^9, 
   3.674007886725184*^9}, 3.6740080122833147`*^9, 3.674008196209271*^9, 
   3.674008253999607*^9, {3.674019690893042*^9, 3.674019714030735*^9}, 
   3.674019887290062*^9, 3.674020036579505*^9, 3.674020083364724*^9, 
   3.6740201753729353`*^9, 3.6740202279828444`*^9, 3.674020430040738*^9, 
   3.6740206336136847`*^9, 3.6740206789309587`*^9, 3.6740254781267233`*^9, 
   3.674025676900896*^9, 3.6740257203022413`*^9, 3.6740257635752707`*^9, 
   3.674025821904428*^9, 3.6740260049035473`*^9, 3.674026080983204*^9, 
   3.674026153777677*^9, 3.674026286539414*^9, 3.674944745835074*^9, 
   3.6749451482661552`*^9, 3.674945579479725*^9, {3.6749465491914587`*^9, 
   3.674946592460761*^9}, 3.674946634762607*^9, 3.674947914336545*^9, 
   3.674947947841531*^9, 3.674948000612749*^9, {3.674948050932645*^9, 
   3.674948080807516*^9}, 3.674948120068575*^9, 3.6749481774385138`*^9, {
   3.674948242169693*^9, 3.674948269014097*^9}, {3.674948395990443*^9, 
   3.674948421499222*^9}, 3.674948499943275*^9, 3.674948621325721*^9, 
   3.674949075436253*^9, 3.674949268595934*^9, 3.674949486366969*^9, 
   3.674950448915873*^9, {3.674950512941621*^9, 3.674950538006295*^9}, {
   3.674950592629953*^9, 3.674950620995982*^9}, 3.674950680762734*^9, {
   3.674950718788904*^9, 3.67495076207976*^9}, {3.674950815431448*^9, 
   3.674950853512101*^9}, 3.674950888659216*^9, 3.674951028163148*^9, 
   3.67495109618332*^9, 3.674951172681457*^9, 3.674951550100183*^9, 
   3.6749515820091743`*^9, 3.674951656738984*^9, 3.6749518027503233`*^9, 
   3.674951950078974*^9, 3.6749520284141493`*^9, 3.674952361609131*^9, {
   3.674952751214683*^9, 3.674952775867066*^9}, 3.674952827461452*^9, 
   3.674952888509754*^9, {3.674954539938282*^9, 3.674954566537757*^9}, 
   3.674954634658392*^9, {3.6749546844939747`*^9, 3.674954697823913*^9}, 
   3.6749547413965197`*^9, 3.674954944654722*^9, {3.6749549777000227`*^9, 
   3.674955030264275*^9}, 3.674955098522798*^9, {3.675002252617345*^9, 
   3.675002263965417*^9}, {3.675002384277779*^9, 3.675002407749124*^9}, 
   3.6750025200655317`*^9, 3.6750100797142267`*^9, {3.675010122809458*^9, 
   3.675010162043687*^9}, 3.6750102045859137`*^9, 3.675010310028796*^9, {
   3.6750103627332687`*^9, 3.675010373145178*^9}, 3.675010427390792*^9, 
   3.6750104718631353`*^9, 3.6750105178825073`*^9, {3.675010554593968*^9, 
   3.675010569474621*^9}, 3.6750106466875362`*^9, 3.675010762275791*^9, 
   3.67501082631982*^9, 3.675010877293619*^9, 3.675010986149951*^9, 
   3.675011028897892*^9, 3.675011134921747*^9, 3.675012051990514*^9, 
   3.675012173016756*^9, 3.6750122411435633`*^9, 3.6750125230045137`*^9, 
   3.675012686661811*^9, 3.675012719490498*^9, 3.675012811497233*^9, 
   3.675012844144863*^9, 3.675012988160934*^9, 3.675013018652356*^9, {
   3.675013087095063*^9, 3.6750131260116987`*^9}, 3.675013358698604*^9, 
   3.675013722576683*^9, 3.675013923812793*^9, 3.675014168357298*^9, 
   3.67509479506574*^9, 3.675096402068656*^9, 3.6755212346258802`*^9, 
   3.675521285139872*^9, {3.675521399134899*^9, 3.6755214178973007`*^9}, {
   3.6755214499122343`*^9, 3.675521475244541*^9}, 3.675521522171875*^9, 
   3.6755215817977*^9, 3.6755217685151567`*^9, {3.67552179998147*^9, 
   3.675521829373365*^9}, 3.675521864174533*^9, 3.675521897262105*^9, {
   3.675521935891386*^9, 3.6755219636058407`*^9}, 3.675522707270618*^9, 
   3.6755228453085957`*^9, 3.67552288525847*^9, 3.675524146542465*^9, 
   3.675524326955778*^9, 3.675524527291687*^9, {3.675525095193317*^9, 
   3.675525107138163*^9}, {3.67552577558004*^9, 3.675525792476801*^9}, 
   3.675525976171116*^9, {3.6755270588759737`*^9, 3.6755270790047398`*^9}, 
   3.675527110569941*^9, 3.6760516165162687`*^9, 3.676051656424027*^9, 
   3.676051878650044*^9, {3.676051916273088*^9, 3.6760519705021763`*^9}, 
   3.676052095606587*^9, {3.676052185984106*^9, 3.676052207526095*^9}, 
   3.6760522457170057`*^9, 3.676052298222979*^9, 3.676052354911356*^9, 
   3.676052390653532*^9, 3.676052839416387*^9, 3.6760529048007812`*^9, 
   3.6760529407519197`*^9, 3.68244262485975*^9, {3.6826329170307083`*^9, 
   3.682632951144355*^9}, {3.682633125186487*^9, 3.682633141507619*^9}, {
   3.682633180908023*^9, 3.682633197898287*^9}, 3.717364738725173*^9, 
   3.717364799958013*^9, 3.717375495609819*^9, 3.717375603204208*^9, 
   3.7173760519575963`*^9, 3.7174328758905687`*^9, 3.7174330452912664`*^9, 
   3.717435557874735*^9, 3.7174355929903965`*^9, 3.717435637654275*^9, 
   3.717436598035963*^9, 3.7174367117611628`*^9, 3.7186346257921944`*^9, 
   3.718636280870015*^9, 3.7186374158686085`*^9, 3.7186388716495657`*^9, 
   3.718638955952114*^9, 3.71863903348425*^9, 3.7186393755168505`*^9, 
   3.7186455608939943`*^9, 3.7186460871793194`*^9, 3.7186464599595737`*^9, 
   3.718646755392893*^9, 3.725107347005419*^9, 3.7251074549264083`*^9, 
   3.72510751873252*^9, 3.7251076822364073`*^9, 3.7251077769129744`*^9, 
   3.7251081095157585`*^9, 3.7278334434217916`*^9, 3.7299439110796075`*^9, 
   3.7299439684886885`*^9, 3.855359465184928*^9, 3.855359610327792*^9, 
   3.855359681344472*^9, 3.8553597551873026`*^9, 3.855359812511543*^9, 
   3.855359868285636*^9, {3.855359965203596*^9, 3.8553599911753306`*^9}, 
   3.8553600211756268`*^9, 3.855360113203282*^9, 3.855360155887805*^9, 
   3.8553601929565916`*^9, 3.855360241053193*^9},
 FontSize->24,ExpressionUUID->"048b724c-db4b-4307-a9df-1b01054cd592"]
}, Open  ]]
},
WindowSize->{1264, 661},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 8170, 126, 184, "Input", "ExpressionUUID" -> \
"690be12e-95e9-4792-8e01-c282e6db44a0"],
Cell[8753, 150, 3608, 74, 211, "Output", "ExpressionUUID" -> \
"21a17438-2082-496c-8391-95d3cacc6a21"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12398, 229, 231, 4, 43, "Input", "ExpressionUUID" -> \
"babc4fd5-3efc-433f-b4be-73decabcf768"],
Cell[12632, 235, 3439, 50, 43, "Output", "ExpressionUUID" -> \
"e64b406b-5410-4a7b-8a85-316cc85834ee"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16108, 290, 851, 22, 114, "Input", "ExpressionUUID" -> \
"4a314965-f57c-4fd3-9bd6-a25f64ebe5f0"],
Cell[16962, 314, 6517, 107, 213, "Output", "ExpressionUUID" -> \
"755504a7-81d8-494e-a558-e64d17b70c51"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23516, 426, 443, 8, 43, "Input", "ExpressionUUID" -> \
"484f9e9d-e246-4a39-afce-8ea46385a727"],
Cell[23962, 436, 7949, 109, 43, "Output", "ExpressionUUID" -> \
"2a67a8aa-1206-4516-b760-b68d08be7ea4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31948, 550, 405, 7, 43, "Input", "ExpressionUUID" -> \
"70c03717-9a6a-4476-b7ce-e92fef772f09"],
Cell[32356, 559, 5331, 78, 43, "Output", "ExpressionUUID" -> \
"0805e7f9-c2a1-4a05-9762-e91e24a89ab9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37724, 642, 226, 4, 43, "Input", "ExpressionUUID" -> \
"f8dce117-d455-4658-85e4-f09379d03ab8"],
Cell[37953, 648, 1946, 31, 43, "Output", "ExpressionUUID" -> \
"d6837a91-dbcd-4856-bccc-743dc2052b49"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39936, 684, 267, 4, 43, "Input", "ExpressionUUID" -> \
"b5effe4d-7c3c-4ed1-8afc-5f868a4a8db3"],
Cell[40206, 690, 5172, 71, 43, "Output", "ExpressionUUID" -> \
"227d8ab9-f6ad-42ee-a9f9-c219599da378"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45415, 766, 202, 3, 43, "Input", "ExpressionUUID" -> \
"14a3bd59-561f-4b3f-bf6d-e5c12c116434"],
Cell[45620, 771, 3687, 53, 43, "Output", "ExpressionUUID" -> \
"748a0e87-911e-4fd8-b115-cf7364ce869f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49344, 829, 302, 6, 79, "Input", "ExpressionUUID" -> \
"04d9c57a-119c-407c-911b-a89376cd409b"],
Cell[49649, 837, 9228, 180, 279, "Output", "ExpressionUUID" -> \
"c3ed6325-a04b-474d-a8f6-200c53dd0a62"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58914, 1022, 2189, 56, 429, "Input", "ExpressionUUID" -> \
"bf42cdee-4fb4-4812-8150-b58f7442f211"],
Cell[61106, 1080, 4437, 62, 43, "Output", "ExpressionUUID" -> \
"4db62c55-a35b-44cf-b0cb-d7f2b7b0714d"]
}, Open  ]],
Cell[65558, 1145, 321, 8, 43, "Input", "ExpressionUUID" -> \
"81677773-d445-4f3c-8ba7-bd42fc874310"],
Cell[65882, 1155, 460, 11, 114, "Input", "ExpressionUUID" -> \
"a16236e5-dcd3-4e9b-9f2d-686efee2046d"],
Cell[CellGroupData[{
Cell[66367, 1170, 462, 8, 79, "Input", "ExpressionUUID" -> \
"b8e93c22-b6ee-401b-ac21-a8d06b1d06bc"],
Cell[66832, 1180, 5893, 85, 71, "Output", "ExpressionUUID" -> \
"38852874-514b-4de6-92a3-0e8b58a9f684"],
Cell[72728, 1267, 5881, 85, 43, "Output", "ExpressionUUID" -> \
"be36a165-1755-4e48-bb67-b81602e16433"]
}, Open  ]],
Cell[78624, 1355, 419, 11, 79, "Input", "ExpressionUUID" -> \
"eccf451b-138f-4587-a0db-42df35f025e8"],
Cell[CellGroupData[{
Cell[79068, 1370, 486, 13, 79, "Input", "ExpressionUUID" -> \
"00dbb2ac-1c7c-4ed4-a735-4e7cf8f8529c"],
Cell[79557, 1385, 7011, 103, 72, "Output", "ExpressionUUID" -> \
"fcb6adce-bdc7-4f18-babc-7331a9c518d2"]
}, Open  ]],
Cell[86583, 1491, 645, 16, 114, "Input", "ExpressionUUID" -> \
"d11e8e5f-f51f-4976-b34c-069025a78189"],
Cell[87231, 1509, 1479, 38, 188, "Input", "ExpressionUUID" -> \
"4d34ccbf-990f-4b31-91de-49cf412de1de"],
Cell[CellGroupData[{
Cell[88735, 1551, 1070, 31, 79, "Input", "ExpressionUUID" -> \
"02ed07ec-b977-40b5-9a48-9a9ef4b4e4b4"],
Cell[89808, 1584, 7425, 116, 60, "Output", "ExpressionUUID" -> \
"a9dee41d-615c-442e-adad-a08e8c33953f"]
}, Open  ]],
Cell[97248, 1703, 1197, 18, 43, "Input", "ExpressionUUID" -> \
"88af0ce3-ed01-4e31-9cdb-39eb5016d6ea"],
Cell[98448, 1723, 2313, 57, 359, "Input", "ExpressionUUID" -> \
"c139749d-352b-4d00-8f8d-58e576841dca"],
Cell[CellGroupData[{
Cell[100786, 1784, 3315, 59, 184, "Input", "ExpressionUUID" -> \
"a9583e4e-943e-49eb-9caa-b0c9ade2ac84"],
Cell[104104, 1845, 58755, 1544, 2300, "Output", "ExpressionUUID" -> \
"048b724c-db4b-4307-a9df-1b01054cd592"]
}, Open  ]]
}
]
*)