QIPmma - tutorial.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     84689,       2504]
NotebookOptionsPosition[     82431,       2455]
NotebookOutlinePosition[     83096,       2477]
CellTagsIndexPosition[     82991,       2472]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "\"\<QIPmma.m\>\""}]}], "Input",
 CellChangeTimes->{{3.909720502809649*^9, 3.909720540242867*^9}, {
  3.909720634958075*^9, 3.909720643201323*^9}, {3.914428368059403*^9, 
  3.9144283686697187`*^9}, {3.914489004351669*^9, 3.9144890155849853`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"fd3a6c7c-7832-4ed3-bff5-96a3b7ffe417"],

Cell[BoxData["\<\"/Users/alexanderpickston/Documents/GitHub/QIPmma\"\>"], \
"Output",
 CellChangeTimes->{{3.909720519089032*^9, 3.909720540834564*^9}, 
   3.909720643585991*^9, 3.909721036956832*^9, 3.909721088824428*^9, 
   3.911902850879511*^9, 3.911902920552734*^9, 3.9119029961878567`*^9, {
   3.9119030697510633`*^9, 3.911903098666394*^9}, 3.911903893106331*^9, 
   3.911974154749494*^9, 3.91442836928783*^9, 3.91442844443655*^9, 
   3.914488799124625*^9, 3.9144888920551147`*^9, {3.914489007138672*^9, 
   3.914489015934197*^9}, 3.9144893092049303`*^9, 3.914489381423181*^9, 
   3.9144894259013033`*^9, 3.9144895634536033`*^9, 3.9145095263444223`*^9, 
   3.914601977659869*^9, {3.914602218635828*^9, 3.914602237541119*^9}, 
   3.91460230557689*^9, 3.914602371223604*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"a54c56d7-1d94-4df4-aca8-6c3b2fc7c597"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Q\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 1, 0],
    FrontFaceColor->RGBColor[0, 1, 0],
    BackFaceColor->RGBColor[0, 1, 0],
    GraphicsColor->RGBColor[0, 1, 0],
    FontWeight->Bold,
    FontColor->RGBColor[0, 1, 0]], "\[InvisibleSpace]", 
   StyleBox["\<\"I\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[52, 53], 
      Rational[1, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[52, 53], 
      Rational[1, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[52, 53], 
      Rational[1, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[52, 53], 
      Rational[1, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[52, 53], 
      Rational[1, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"P\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[51, 53], 
      Rational[2, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[51, 53], 
      Rational[2, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[51, 53], 
      Rational[2, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[51, 53], 
      Rational[2, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[51, 53], 
      Rational[2, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"m\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[50, 53], 
      Rational[3, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[50, 53], 
      Rational[3, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[50, 53], 
      Rational[3, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[50, 53], 
      Rational[3, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[50, 53], 
      Rational[3, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"m\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[49, 53], 
      Rational[4, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[49, 53], 
      Rational[4, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[49, 53], 
      Rational[4, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[49, 53], 
      Rational[4, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[49, 53], 
      Rational[4, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"a\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[48, 53], 
      Rational[5, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[48, 53], 
      Rational[5, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[48, 53], 
      Rational[5, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[48, 53], 
      Rational[5, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[48, 53], 
      Rational[5, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\" \"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[47, 53], 
      Rational[6, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[47, 53], 
      Rational[6, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[47, 53], 
      Rational[6, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[47, 53], 
      Rational[6, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[47, 53], 
      Rational[6, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"l\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[46, 53], 
      Rational[7, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[46, 53], 
      Rational[7, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[46, 53], 
      Rational[7, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[46, 53], 
      Rational[7, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[46, 53], 
      Rational[7, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"i\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[45, 53], 
      Rational[8, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[45, 53], 
      Rational[8, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[45, 53], 
      Rational[8, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[45, 53], 
      Rational[8, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[45, 53], 
      Rational[8, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"b\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[44, 53], 
      Rational[9, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[44, 53], 
      Rational[9, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[44, 53], 
      Rational[9, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[44, 53], 
      Rational[9, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[44, 53], 
      Rational[9, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"r\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[43, 53], 
      Rational[10, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[43, 53], 
      Rational[10, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[43, 53], 
      Rational[10, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[43, 53], 
      Rational[10, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[43, 53], 
      Rational[10, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"a\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[42, 53], 
      Rational[11, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[42, 53], 
      Rational[11, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[42, 53], 
      Rational[11, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[42, 53], 
      Rational[11, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[42, 53], 
      Rational[11, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"r\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[41, 53], 
      Rational[12, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[41, 53], 
      Rational[12, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[41, 53], 
      Rational[12, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[41, 53], 
      Rational[12, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[41, 53], 
      Rational[12, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"y\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[40, 53], 
      Rational[13, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[40, 53], 
      Rational[13, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[40, 53], 
      Rational[13, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[40, 53], 
      Rational[13, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[40, 53], 
      Rational[13, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\" \"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[39, 53], 
      Rational[14, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[39, 53], 
      Rational[14, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[39, 53], 
      Rational[14, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[39, 53], 
      Rational[14, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[39, 53], 
      Rational[14, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"h\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[38, 53], 
      Rational[15, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[38, 53], 
      Rational[15, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[38, 53], 
      Rational[15, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[38, 53], 
      Rational[15, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[38, 53], 
      Rational[15, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"a\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[37, 53], 
      Rational[16, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[37, 53], 
      Rational[16, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[37, 53], 
      Rational[16, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[37, 53], 
      Rational[16, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[37, 53], 
      Rational[16, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"s\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[36, 53], 
      Rational[17, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[36, 53], 
      Rational[17, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[36, 53], 
      Rational[17, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[36, 53], 
      Rational[17, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[36, 53], 
      Rational[17, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\" \"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[35, 53], 
      Rational[18, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[35, 53], 
      Rational[18, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[35, 53], 
      Rational[18, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[35, 53], 
      Rational[18, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[35, 53], 
      Rational[18, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"b\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[34, 53], 
      Rational[19, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[34, 53], 
      Rational[19, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[34, 53], 
      Rational[19, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[34, 53], 
      Rational[19, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[34, 53], 
      Rational[19, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"e\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[33, 53], 
      Rational[20, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[33, 53], 
      Rational[20, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[33, 53], 
      Rational[20, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[33, 53], 
      Rational[20, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[33, 53], 
      Rational[20, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"e\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[32, 53], 
      Rational[21, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[32, 53], 
      Rational[21, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[32, 53], 
      Rational[21, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[32, 53], 
      Rational[21, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[32, 53], 
      Rational[21, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"n\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[31, 53], 
      Rational[22, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[31, 53], 
      Rational[22, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[31, 53], 
      Rational[22, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[31, 53], 
      Rational[22, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[31, 53], 
      Rational[22, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\" \"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[30, 53], 
      Rational[23, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[30, 53], 
      Rational[23, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[30, 53], 
      Rational[23, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[30, 53], 
      Rational[23, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[30, 53], 
      Rational[23, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"l\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[29, 53], 
      Rational[24, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[29, 53], 
      Rational[24, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[29, 53], 
      Rational[24, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[29, 53], 
      Rational[24, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[29, 53], 
      Rational[24, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"o\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[28, 53], 
      Rational[25, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[28, 53], 
      Rational[25, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[28, 53], 
      Rational[25, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[28, 53], 
      Rational[25, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[28, 53], 
      Rational[25, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"a\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[27, 53], 
      Rational[26, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[27, 53], 
      Rational[26, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[27, 53], 
      Rational[26, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[27, 53], 
      Rational[26, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[27, 53], 
      Rational[26, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"d\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[26, 53], 
      Rational[27, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[26, 53], 
      Rational[27, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[26, 53], 
      Rational[27, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[26, 53], 
      Rational[27, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[26, 53], 
      Rational[27, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"e\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[25, 53], 
      Rational[28, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[25, 53], 
      Rational[28, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[25, 53], 
      Rational[28, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[25, 53], 
      Rational[28, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[25, 53], 
      Rational[28, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"d\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[24, 53], 
      Rational[29, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[24, 53], 
      Rational[29, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[24, 53], 
      Rational[29, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[24, 53], 
      Rational[29, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[24, 53], 
      Rational[29, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\" \"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[23, 53], 
      Rational[30, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[23, 53], 
      Rational[30, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[23, 53], 
      Rational[30, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[23, 53], 
      Rational[30, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[23, 53], 
      Rational[30, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"s\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[22, 53], 
      Rational[31, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[22, 53], 
      Rational[31, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[22, 53], 
      Rational[31, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[22, 53], 
      Rational[31, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[22, 53], 
      Rational[31, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"u\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[21, 53], 
      Rational[32, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[21, 53], 
      Rational[32, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[21, 53], 
      Rational[32, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[21, 53], 
      Rational[32, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[21, 53], 
      Rational[32, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"c\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[20, 53], 
      Rational[33, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[20, 53], 
      Rational[33, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[20, 53], 
      Rational[33, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[20, 53], 
      Rational[33, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[20, 53], 
      Rational[33, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"c\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[19, 53], 
      Rational[34, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[19, 53], 
      Rational[34, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[19, 53], 
      Rational[34, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[19, 53], 
      Rational[34, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[19, 53], 
      Rational[34, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"e\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[18, 53], 
      Rational[35, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[18, 53], 
      Rational[35, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[18, 53], 
      Rational[35, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[18, 53], 
      Rational[35, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[18, 53], 
      Rational[35, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"s\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[17, 53], 
      Rational[36, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[17, 53], 
      Rational[36, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[17, 53], 
      Rational[36, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[17, 53], 
      Rational[36, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[17, 53], 
      Rational[36, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"s\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[16, 53], 
      Rational[37, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[16, 53], 
      Rational[37, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[16, 53], 
      Rational[37, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[16, 53], 
      Rational[37, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[16, 53], 
      Rational[37, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"f\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[15, 53], 
      Rational[38, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[15, 53], 
      Rational[38, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[15, 53], 
      Rational[38, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[15, 53], 
      Rational[38, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[15, 53], 
      Rational[38, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"u\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[14, 53], 
      Rational[39, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[14, 53], 
      Rational[39, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[14, 53], 
      Rational[39, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[14, 53], 
      Rational[39, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[14, 53], 
      Rational[39, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"l\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[13, 53], 
      Rational[40, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[13, 53], 
      Rational[40, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[13, 53], 
      Rational[40, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[13, 53], 
      Rational[40, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[13, 53], 
      Rational[40, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"l\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[12, 53], 
      Rational[41, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[12, 53], 
      Rational[41, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[12, 53], 
      Rational[41, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[12, 53], 
      Rational[41, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[12, 53], 
      Rational[41, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"y\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[11, 53], 
      Rational[42, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[11, 53], 
      Rational[42, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[11, 53], 
      Rational[42, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[11, 53], 
      Rational[42, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[11, 53], 
      Rational[42, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\".\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[10, 53], 
      Rational[43, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[10, 53], 
      Rational[43, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[10, 53], 
      Rational[43, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[10, 53], 
      Rational[43, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[10, 53], 
      Rational[43, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\" \"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[9, 53], 
      Rational[44, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[9, 53], 
      Rational[44, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[9, 53], 
      Rational[44, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[9, 53], 
      Rational[44, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[9, 53], 
      Rational[44, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"H\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[8, 53], 
      Rational[45, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[8, 53], 
      Rational[45, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[8, 53], 
      Rational[45, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[8, 53], 
      Rational[45, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[8, 53], 
      Rational[45, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"a\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[7, 53], 
      Rational[46, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[7, 53], 
      Rational[46, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[7, 53], 
      Rational[46, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[7, 53], 
      Rational[46, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[7, 53], 
      Rational[46, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"v\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[6, 53], 
      Rational[47, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[6, 53], 
      Rational[47, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[6, 53], 
      Rational[47, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[6, 53], 
      Rational[47, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[6, 53], 
      Rational[47, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"e\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[5, 53], 
      Rational[48, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[5, 53], 
      Rational[48, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[5, 53], 
      Rational[48, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[5, 53], 
      Rational[48, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[5, 53], 
      Rational[48, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\" \"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[4, 53], 
      Rational[49, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[4, 53], 
      Rational[49, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[4, 53], 
      Rational[49, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[4, 53], 
      Rational[49, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[4, 53], 
      Rational[49, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"f\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[3, 53], 
      Rational[50, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[3, 53], 
      Rational[50, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[3, 53], 
      Rational[50, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[3, 53], 
      Rational[50, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[3, 53], 
      Rational[50, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"u\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[2, 53], 
      Rational[51, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[2, 53], 
      Rational[51, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[2, 53], 
      Rational[51, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[2, 53], 
      Rational[51, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[2, 53], 
      Rational[51, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"n\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 
      Rational[1, 53], 
      Rational[52, 53]],
    FrontFaceColor->RGBColor[0, 
      Rational[1, 53], 
      Rational[52, 53]],
    BackFaceColor->RGBColor[0, 
      Rational[1, 53], 
      Rational[52, 53]],
    GraphicsColor->RGBColor[0, 
      Rational[1, 53], 
      Rational[52, 53]],
    FontWeight->Bold,
    FontColor->RGBColor[0, 
      Rational[1, 53], 
      Rational[52, 53]]], "\[InvisibleSpace]", 
   StyleBox["\<\"!\"\>",
    StripOnInput->False,
    LineColor->RGBColor[0, 0, 1],
    FrontFaceColor->RGBColor[0, 0, 1],
    BackFaceColor->RGBColor[0, 0, 1],
    GraphicsColor->RGBColor[0, 0, 1],
    FontWeight->Bold,
    FontColor->RGBColor[0, 0, 1]]}],
  SequenceForm[
   Style["Q", 
    RGBColor[0, 1, 0], Bold], 
   Style["I", 
    RGBColor[0, 
     Rational[52, 53], 
     Rational[1, 53]], Bold], 
   Style["P", 
    RGBColor[0, 
     Rational[51, 53], 
     Rational[2, 53]], Bold], 
   Style["m", 
    RGBColor[0, 
     Rational[50, 53], 
     Rational[3, 53]], Bold], 
   Style["m", 
    RGBColor[0, 
     Rational[49, 53], 
     Rational[4, 53]], Bold], 
   Style["a", 
    RGBColor[0, 
     Rational[48, 53], 
     Rational[5, 53]], Bold], 
   Style[" ", 
    RGBColor[0, 
     Rational[47, 53], 
     Rational[6, 53]], Bold], 
   Style["l", 
    RGBColor[0, 
     Rational[46, 53], 
     Rational[7, 53]], Bold], 
   Style["i", 
    RGBColor[0, 
     Rational[45, 53], 
     Rational[8, 53]], Bold], 
   Style["b", 
    RGBColor[0, 
     Rational[44, 53], 
     Rational[9, 53]], Bold], 
   Style["r", 
    RGBColor[0, 
     Rational[43, 53], 
     Rational[10, 53]], Bold], 
   Style["a", 
    RGBColor[0, 
     Rational[42, 53], 
     Rational[11, 53]], Bold], 
   Style["r", 
    RGBColor[0, 
     Rational[41, 53], 
     Rational[12, 53]], Bold], 
   Style["y", 
    RGBColor[0, 
     Rational[40, 53], 
     Rational[13, 53]], Bold], 
   Style[" ", 
    RGBColor[0, 
     Rational[39, 53], 
     Rational[14, 53]], Bold], 
   Style["h", 
    RGBColor[0, 
     Rational[38, 53], 
     Rational[15, 53]], Bold], 
   Style["a", 
    RGBColor[0, 
     Rational[37, 53], 
     Rational[16, 53]], Bold], 
   Style["s", 
    RGBColor[0, 
     Rational[36, 53], 
     Rational[17, 53]], Bold], 
   Style[" ", 
    RGBColor[0, 
     Rational[35, 53], 
     Rational[18, 53]], Bold], 
   Style["b", 
    RGBColor[0, 
     Rational[34, 53], 
     Rational[19, 53]], Bold], 
   Style["e", 
    RGBColor[0, 
     Rational[33, 53], 
     Rational[20, 53]], Bold], 
   Style["e", 
    RGBColor[0, 
     Rational[32, 53], 
     Rational[21, 53]], Bold], 
   Style["n", 
    RGBColor[0, 
     Rational[31, 53], 
     Rational[22, 53]], Bold], 
   Style[" ", 
    RGBColor[0, 
     Rational[30, 53], 
     Rational[23, 53]], Bold], 
   Style["l", 
    RGBColor[0, 
     Rational[29, 53], 
     Rational[24, 53]], Bold], 
   Style["o", 
    RGBColor[0, 
     Rational[28, 53], 
     Rational[25, 53]], Bold], 
   Style["a", 
    RGBColor[0, 
     Rational[27, 53], 
     Rational[26, 53]], Bold], 
   Style["d", 
    RGBColor[0, 
     Rational[26, 53], 
     Rational[27, 53]], Bold], 
   Style["e", 
    RGBColor[0, 
     Rational[25, 53], 
     Rational[28, 53]], Bold], 
   Style["d", 
    RGBColor[0, 
     Rational[24, 53], 
     Rational[29, 53]], Bold], 
   Style[" ", 
    RGBColor[0, 
     Rational[23, 53], 
     Rational[30, 53]], Bold], 
   Style["s", 
    RGBColor[0, 
     Rational[22, 53], 
     Rational[31, 53]], Bold], 
   Style["u", 
    RGBColor[0, 
     Rational[21, 53], 
     Rational[32, 53]], Bold], 
   Style["c", 
    RGBColor[0, 
     Rational[20, 53], 
     Rational[33, 53]], Bold], 
   Style["c", 
    RGBColor[0, 
     Rational[19, 53], 
     Rational[34, 53]], Bold], 
   Style["e", 
    RGBColor[0, 
     Rational[18, 53], 
     Rational[35, 53]], Bold], 
   Style["s", 
    RGBColor[0, 
     Rational[17, 53], 
     Rational[36, 53]], Bold], 
   Style["s", 
    RGBColor[0, 
     Rational[16, 53], 
     Rational[37, 53]], Bold], 
   Style["f", 
    RGBColor[0, 
     Rational[15, 53], 
     Rational[38, 53]], Bold], 
   Style["u", 
    RGBColor[0, 
     Rational[14, 53], 
     Rational[39, 53]], Bold], 
   Style["l", 
    RGBColor[0, 
     Rational[13, 53], 
     Rational[40, 53]], Bold], 
   Style["l", 
    RGBColor[0, 
     Rational[12, 53], 
     Rational[41, 53]], Bold], 
   Style["y", 
    RGBColor[0, 
     Rational[11, 53], 
     Rational[42, 53]], Bold], 
   Style[".", 
    RGBColor[0, 
     Rational[10, 53], 
     Rational[43, 53]], Bold], 
   Style[" ", 
    RGBColor[0, 
     Rational[9, 53], 
     Rational[44, 53]], Bold], 
   Style["H", 
    RGBColor[0, 
     Rational[8, 53], 
     Rational[45, 53]], Bold], 
   Style["a", 
    RGBColor[0, 
     Rational[7, 53], 
     Rational[46, 53]], Bold], 
   Style["v", 
    RGBColor[0, 
     Rational[6, 53], 
     Rational[47, 53]], Bold], 
   Style["e", 
    RGBColor[0, 
     Rational[5, 53], 
     Rational[48, 53]], Bold], 
   Style[" ", 
    RGBColor[0, 
     Rational[4, 53], 
     Rational[49, 53]], Bold], 
   Style["f", 
    RGBColor[0, 
     Rational[3, 53], 
     Rational[50, 53]], Bold], 
   Style["u", 
    RGBColor[0, 
     Rational[2, 53], 
     Rational[51, 53]], Bold], 
   Style["n", 
    RGBColor[0, 
     Rational[1, 53], 
     Rational[52, 53]], Bold], 
   Style["!", 
    RGBColor[0, 0, 1], Bold]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.914489015947608*^9, 3.914489309283883*^9, 3.914489381870577*^9, 
   3.9144894259540577`*^9, 3.9144895634977417`*^9, 3.914509526402339*^9, 
   3.914601977670351*^9, {3.91460221864828*^9, 3.9146022375773067`*^9}, 
   3.914602305587696*^9, 3.914602371269252*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"65757c05-9437-4b61-8c1f-558f2b3cbf5a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "QIPmma`*"}]], "Input",
 CellChangeTimes->{{3.911902855925005*^9, 3.911902889416108*^9}, {
  3.9119039081299467`*^9, 3.911903914105114*^9}, {3.911904175649044*^9, 
  3.911904182790835*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"272eb540-d2bb-49ae-ab76-e3654a6ffe9f"],

Cell[BoxData[
 StyleBox[
  FrameBox[GridBox[{
     {
      DynamicModuleBox[{Typeset`open$$ = True}, 
       PaneSelectorBox[{False->
        ButtonBox[
         RowBox[{
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEBitmaps", "RightPointerOpener"]], " ", 
          StyleBox["QIPmma`", "InformationGridGroupHeader"]}],
         Appearance->None,
         BaseStyle->"InformationGridLink",
         ButtonFunction:>FEPrivate`Set[Typeset`open$$, True],
         Evaluator->Automatic,
         Method->"Preemptive"], True->
        PaneBox[GridBox[{
           {
            ButtonBox[
             RowBox[{
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{8., {2., 6.}}], " ", 
              StyleBox["QIPmma`", "InformationGridGroupHeader"]}],
             Appearance->None,
             BaseStyle->"InformationGridLink",
             ButtonFunction:>FEPrivate`Set[Typeset`open$$, False],
             Evaluator->Automatic,
             Method->"Preemptive"]},
           {
            PaneBox[GridBox[{
               {
                ButtonBox[
                 StyleBox["b", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "b", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DepolControl", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "DepolControl", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["h", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "h", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["out", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "out", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["q", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "q", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["sz", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "sz", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["BitFlip", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "BitFlip", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DepolMemory", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "DepolMemory", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HWP", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "HWP", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["out$", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "out$", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Qubits", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "Qubits", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["t", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "t", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["BitPhaseFlip", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "BitPhaseFlip", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["dm", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "dm", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["i", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "i", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["p", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "p", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["QWP", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "QWP", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["TraceSystem", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "TraceSystem", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["c", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "c", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["EigenSolve", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "EigenSolve", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["idealdm", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "idealdm", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["perm", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "perm", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["rho", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "rho", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["TrkM", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "TrkM", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["cI", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "cI", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["eigenvalues", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "eigenvalues", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["j", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "j", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Permut", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "Permut", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["s0", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "s0", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["v", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "v", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["cX", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "cX", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["eigenvectors", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "eigenvectors", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["k", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "k", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["PhaseFlip", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "PhaseFlip", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["state", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "state", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["x", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "x", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["cY", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "cY", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["expr", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "expr", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Kron", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "Kron", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["pos1", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "pos1", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["StateMeasurement", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "StateMeasurement", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["y", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "y", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["cZ", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "cZ", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Fidelity", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "Fidelity", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["M", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "M", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["pos2", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "pos2", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["StateMeasurementPure", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "StateMeasurementPure", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["\[Eta]", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "\[Eta]", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["DensityMatrix", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "DensityMatrix", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["FidelityPure", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "FidelityPure", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["matrix", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "matrix", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["proj", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "proj", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SwapParts", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "SwapParts", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["\[Theta]", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "\[Theta]", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["Depol", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "Depol", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetAngle", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "GetAngle", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["n", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "n", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["ProjectionMeasurement", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "ProjectionMeasurement", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["sx", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "sx", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["\[Theta]$", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "\[Theta]$", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["Depol1", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "Depol1", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetProjectionAngles", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "GetProjectionAngles", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["nQubit", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "nQubit", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Purity", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "Purity", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["sy", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "sy", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["\[Rho]", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "\[Rho]", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["Depol2", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "Depol2", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GHZ", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "GHZ", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["operator", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "operator", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["p$", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "p$", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["sys", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", {
                   "sys", "QIPmma`"}, False},
                 ButtonNote->"QIPmma`",
                 Evaluator->Automatic], ""}
              },
              DefaultBaseStyle->"Text",
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{
                   Scaled[0.15833333333333333`]}}}],
             ImageMargins->{{10, 0}, {0, 2}}]}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}],
         FrameMargins->{{0, 0}, {8, 0}}]}, Dynamic[Typeset`open$$],
        ImageSize->Automatic]]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{"ColumnsIndexed" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.8]}, 
        Offset[0.2]}}],
   BaseStyle->"InformationTitleFrame"], "InformationGridPlain"]], "Output",
 CellChangeTimes->{
  3.911902860139304*^9, 3.911902890140784*^9, 3.911902922515209*^9, 
   3.9119029978153067`*^9, {3.9119030724984293`*^9, 3.911903145975692*^9}, 
   3.911903896972558*^9, 3.91197415834804*^9, 3.914488895780676*^9, 
   3.914601980000205*^9, 3.914602307351239*^9, {3.9146023532578697`*^9, 
   3.914602374574822*^9}},
 CellLabel->"Out[3]=",ExpressionUUID->"0cf47b9c-e1e3-411c-9c7c-95ac54007fef"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = True, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"EigenSolve[\\!\\(\\* \
StyleBox[\\\"matrix\\\",\\nFontColor->RGBColor[0, 0, 1]]\\)] Returns the \
eigenvalues and eigenvectors of the given matrix\"\>", "InformationUsageText",
             
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"EigenSolve", "[", "matrix_", "]"}], ":=", 
                    RowBox[{"Block", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"eigenvalues", ",", "eigenvectors"}], "}"}], ",", 
                    
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"eigenvalues", ",", "eigenvectors"}], "}"}], "=", 
                    
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    
                    RowBox[{"#1", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}], ",", 
                    
                    RowBox[{"#1", "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}]}], "}"}], "&"}], ")"}], "/@", 
                    RowBox[{"Eigensystem", "[", "matrix", "]"}]}]}], ";", 
                    RowBox[{"{", 
                    RowBox[{"eigenvalues", ",", 
                    RowBox[{"Normalize", "/@", "eigenvectors"}]}], "}"}]}]}], 
                    "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"QIPmma`EigenSolve\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"],
               ImageSizeCache->{8., {1., 7.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"],
               ImageSizeCache->{8., {1., 7.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"EigenSolve[\\!\\(\\* \
StyleBox[\\\"matrix\\\",\\nFontColor->RGBColor[0, 0, 1]]\\)] Returns the \
eigenvalues and eigenvectors of the given matrix\"\>", "InformationUsageText",
             
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{8., {1., 7.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{8., {1., 7.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "EigenSolve[\!\(\* StyleBox[\"matrix\",\nFontColor->RGBColor[0, 0, 1]]\)] \
Returns the eigenvalues and eigenvectors of the given matrix", 
    "Documentation" -> None, "OwnValues" -> None, "UpValues" -> None, 
    "DownValues" -> 
    Information`InformationValueForm[
     DownValues, QIPmma`EigenSolve, {QIPmma`EigenSolve[
         Pattern[QIPmma`matrix, 
          Blank[]]] :> 
       Block[{QIPmma`eigenvalues, 
          QIPmma`eigenvectors}, {QIPmma`eigenvalues, QIPmma`eigenvectors} = 
          Map[{
             Part[#, 1], 
             Part[#, 2]}& , 
            Eigensystem[QIPmma`matrix]]; {QIPmma`eigenvalues, 
           Map[Normalize, QIPmma`eigenvectors]}]}], "SubValues" -> None, 
    "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> None, "Attributes" -> {}, "FullName" -> 
    "QIPmma`EigenSolve"|>, False]]], "Print",
 CellTags->
  "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef",ExpressionUUID->"2dff0b10-f691-\
47aa-9ffc-9ac3c42ae7f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Stabilizers", "Subsection",
 CellChangeTimes->{{3.914429445938423*^9, 
  3.9144294551005163`*^9}},ExpressionUUID->"48e58b01-9908-49aa-9c8f-\
51e5a5b297ed"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"stabilizers", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Kron", "[", 
     RowBox[{"sz", ",", "sz"}], "]"}], ",", 
    RowBox[{"Kron", "[", 
     RowBox[{"sx", ",", "sx"}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.91442925232441*^9, 3.9144292581163397`*^9}, {
  3.914429418801449*^9, 3.914429422632539*^9}, {3.9144296125969*^9, 
  3.914429621522972*^9}, {3.9144297406575947`*^9, 3.914429754921832*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"6692a610-a2bd-4f29-a6bc-ed6c4f0c81e1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.914429252959702*^9, 3.914429258514105*^9}, 
   3.914429429718132*^9, 3.914429622162383*^9, {3.914429749548832*^9, 
   3.914429755389331*^9}, 3.914489428899056*^9, 3.91448956655873*^9, 
   3.91450952911368*^9, 3.9146022009218493`*^9, 3.914602300790792*^9, 
   3.914602430647215*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"f3ca7463-3aaa-4cb5-a287-7914b653f158"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"state", "=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"\[Sqrt]", "2"}]}], 
   RowBox[{"(", 
    RowBox[{"hh", "+", "vv"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.91442932442589*^9, 3.914429398793539*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"2dee89e6-e698-4c12-8b36-a8c8e7555688"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    FractionBox["1", 
     SqrtBox["2"]], "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", 
    FractionBox["1", 
     SqrtBox["2"]], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.914429379136291*^9, 3.914429399485017*^9}, 
   3.91442943149819*^9, 3.914489567941464*^9, 3.914509530677423*^9, 
   3.914602261850368*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"57cf5b8b-8e31-4c64-be24-f1937def0b67"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"#", ".", "state"}], "\[Equal]", "state"}], ")"}], "&"}], "/@", 
  "stabilizers"}]], "Input",
 CellChangeTimes->{{3.914429382177311*^9, 3.914429440222209*^9}, {
  3.914429628717547*^9, 3.914429635814621*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"c6b1f693-a5c6-4eac-b00f-402876fbf126"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "True"}], "}"}]], "Output",
 CellChangeTimes->{{3.9144294024696813`*^9, 3.914429440432274*^9}, 
   3.914429636185131*^9, 3.914429751533168*^9, 3.914489569545108*^9, 
   3.914602264207123*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"c815c209-9b01-4071-a973-8199a6bda36c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GHZ", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.914602206565041*^9, 3.914602209758519*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"332d3e67-b4fc-4d03-8864-d9b507326551"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    FractionBox["1", 
     SqrtBox["2"]], "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", 
    FractionBox["1", 
     SqrtBox["2"]], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.914602210485133*^9, 3.914602249377719*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"c349e797-1844-434d-9c0d-847c640f15c1"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{953, 1137},
WindowMargins->{{Automatic, 5}, {Automatic, 5}},
FrontEndVersion->"14.0 for Mac OS X x86 (64-bit) (December 12, 2023)",
StyleDefinitions->"Mono.nb",
ExpressionUUID->"fb396e81-04a9-4eb7-85d4-e9c017faf800"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef"->{
  Cell[66114, 2018, 11947, 300, 183, "Print",ExpressionUUID->"2dff0b10-f691-47aa-9ffc-9ac3c42ae7f7",
   CellTags->"Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef", 82807, 2466}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 459, 7, 41, "Input",ExpressionUUID->"fd3a6c7c-7832-4ed3-bff5-96a3b7ffe417"],
Cell[1042, 31, 854, 12, 27, "Output",ExpressionUUID->"a54c56d7-1d94-4df4-aca8-6c3b2fc7c597"],
Cell[1899, 45, 31470, 1176, 18, "Print",ExpressionUUID->"65757c05-9437-4b61-8c1f-558f2b3cbf5a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33406, 1226, 295, 5, 24, "Input",ExpressionUUID->"272eb540-d2bb-49ae-ab76-e3654a6ffe9f"],
Cell[33704, 1233, 32407, 783, 272, "Output",ExpressionUUID->"0cf47b9c-e1e3-411c-9c7c-95ac54007fef"],
Cell[66114, 2018, 11947, 300, 183, "Print",ExpressionUUID->"2dff0b10-f691-47aa-9ffc-9ac3c42ae7f7",
 CellTags->"Info-25dcc8d9-b97a-4f4d-8126-ba11923218ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78098, 2323, 161, 3, 42, "Subsection",ExpressionUUID->"48e58b01-9908-49aa-9c8f-51e5a5b297ed"],
Cell[CellGroupData[{
Cell[78284, 2330, 517, 11, 24, "Input",ExpressionUUID->"6692a610-a2bd-4f29-a6bc-ed6c4f0c81e1"],
Cell[78804, 2343, 1226, 31, 27, "Output",ExpressionUUID->"f3ca7463-3aaa-4cb5-a287-7914b653f158"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80067, 2379, 316, 8, 26, "Input",ExpressionUUID->"2dee89e6-e698-4c12-8b36-a8c8e7555688"],
Cell[80386, 2389, 505, 14, 44, "Output",ExpressionUUID->"57cf5b8b-8e31-4c64-be24-f1937def0b67"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80928, 2408, 365, 9, 24, "Input",ExpressionUUID->"c6b1f693-a5c6-4eac-b00f-402876fbf126"],
Cell[81296, 2419, 322, 6, 27, "Output",ExpressionUUID->"c815c209-9b01-4071-a973-8199a6bda36c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81655, 2430, 201, 3, 24, "Input",ExpressionUUID->"332d3e67-b4fc-4d03-8864-d9b507326551"],
Cell[81859, 2435, 544, 16, 44, "Output",ExpressionUUID->"c349e797-1844-434d-9c0d-847c640f15c1"]
}, Open  ]]
}, Open  ]]
}
]
*)