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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     68618,       1799]
NotebookOptionsPosition[     67994,       1774]
NotebookOutlinePosition[     68358,       1790]
CellTagsIndexPosition[     68315,       1787]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Simulaci\[OAcute]n del Protocolo BB84 (Problema 3, Gu\[IAcute]a 3)\
\>", "Title",
 CellChangeTimes->{{3.63826942505474*^9, 3.6382694402227397`*^9}, {
  3.6382700525527396`*^9, 3.6382700708307395`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nevents", "=", "200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Abits", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"RandomInteger", "[", "1", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "Nevents"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Abasis", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"RandomInteger", "[", "1", "]"}], "\[Equal]", "0"}], ",", 
       "\"\<Sx\>\"", ",", "\"\<Sz\>\""}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "Nevents"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bbasis", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"RandomInteger", "[", "1", "]"}], "\[Equal]", "0"}], ",", 
       "\"\<Sx\>\"", ",", "\"\<Sz\>\""}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "Nevents"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bbits", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Abasis", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
        RowBox[{"Bbasis", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"Abits", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"RandomInteger", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "Nevents"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Abits\>\"", ",", "\"\<Abasis\>\"", ",", "\"\<Bbasis\>\"", ",", 
     "\"\<Bbits\>\""}], "}"}], "]"}], " ", 
  RowBox[{"MatrixForm", "[", 
   RowBox[{"{", 
    RowBox[{"Abits", ",", "Abasis", ",", "Bbasis", ",", "Bbits"}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AbasisColor", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Abasis", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
        RowBox[{"Bbasis", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"Abasis", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", 
       RowBox[{"Abasis", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "Nevents"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BbasisColor", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Abasis", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
        RowBox[{"Bbasis", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"Bbasis", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", 
       RowBox[{"Bbasis", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "Nevents"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equalBasis", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", "Nevents"}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Abasis", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
      RowBox[{"Bbasis", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"equalBasis", "=", 
      RowBox[{"equalBasis", "+", "1"}]}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"equalBasis", " ", "\"\<bases iguales\>\""}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equalBits", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", "Nevents"}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Abits", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
      RowBox[{"Bbits", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"equalBits", "=", 
      RowBox[{"equalBits", "+", "1"}]}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"equalBits", " ", 
  "\"\<bits iguales: se agregan los bits que corresponden a diferentes bases \
que pueden ser iguales con probabilidad 1/2\>\""}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AbitsColor", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Abasis", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
        RowBox[{"Bbasis", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"Abits", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", 
       RowBox[{"Abits", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "Nevents"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BbitsColor", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Abasis", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
        RowBox[{"Bbasis", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"Bbits", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", 
       RowBox[{"Bbits", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "Nevents"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "\"\<A y B comparten las bases empleadas \
usando medios de comunicaci\[OAcute]n no seguros (no importan que alguien \
conozca esas bases) e identifican los casos en que se midieron en las mismas \
bases con color rojo:la secuencia de bits comunes y seguros son los de color \
rojo\>\"", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Abits\>\"", ",", "\"\<Abasis\>\"", ",", "\"\<Bbasis\>\"", ",", 
     "\"\<Bbits\>\""}], "}"}], "]"}], " ", 
  RowBox[{"MatrixForm", "[", 
   RowBox[{"{", 
    RowBox[{
    "AbitsColor", ",", "AbasisColor", ",", "BbasisColor", ",", "BbitsColor"}],
     "}"}], "]"}]}], "\[IndentingNewLine]", "\"\<A y B comparten 1/3 de los \
bits del conjunto rojo elegidos en forma aleatoria usando medios de \
comunicaci\[OAcute]n no seguros (sacrifican 1/3 de los bits). Si hay dos bits \
diferentes hubo ruido en la linea o un tercer observador E alter\[OAcute] al \
menos un bit. Probabilidad de que E no altere la secuencia de N/3 bits es \
(1/2)^(N/3).\nSi todos los bits son iguales se eligen los 2N/3 bits no \
compartidos\>\""}], "Input",
 CellChangeTimes->{{3.60526107575*^9, 3.605261101027*^9}, {3.605261194508*^9, 
   3.60526140687*^9}, {3.6052614562609997`*^9, 3.6052615093129997`*^9}, {
   3.605261609001*^9, 3.6052616206800003`*^9}, {3.605261651292*^9, 
   3.605261655348*^9}, {3.6052636789630003`*^9, 3.60526379696*^9}, {
   3.6052638372469997`*^9, 3.605263933625*^9}, {3.605263984389*^9, 
   3.605263988913*^9}, {3.605264063263*^9, 3.605264275167*^9}, {
   3.6052643386879997`*^9, 3.605264348112*^9}, {3.6052644436219997`*^9, 
   3.605264589415*^9}, {3.605264952591*^9, 3.605264983826*^9}, {
   3.605265663403*^9, 3.605265685321*^9}, {3.605265754993*^9, 
   3.605265764565*^9}, {3.6052679239519997`*^9, 3.605267924492*^9}, {
   3.60526815305*^9, 3.605268219967*^9}, {3.605268276351*^9, 
   3.605268287432*^9}, {3.60526835219*^9, 3.605268369361*^9}, {
   3.60526856183*^9, 3.6052685753900003`*^9}, {3.605268735448*^9, 
   3.6052688105109997`*^9}, {3.605268856052*^9, 3.6052689465*^9}, {
   3.6052690064849997`*^9, 3.605269012968*^9}, {3.605269105074*^9, 
   3.60526910567*^9}, {3.605269158538*^9, 3.605269160285*^9}, {
   3.63826725597174*^9, 3.63826734634474*^9}, {3.6382676775387397`*^9, 
   3.6382677403197393`*^9}, {3.6382678027427397`*^9, 3.63826782862274*^9}, {
   3.6382678822537394`*^9, 3.6382678884727397`*^9}, {3.6382679467577395`*^9, 
   3.6382679610557394`*^9}, 3.6382680178487396`*^9, 3.63826823785874*^9, {
   3.6382682762577395`*^9, 3.63826827970074*^9}, {3.6382683503027396`*^9, 
   3.63826837868174*^9}, {3.6382684273197393`*^9, 3.63826847581174*^9}, {
   3.6382685124237394`*^9, 3.6382686729927397`*^9}, {3.6382691350707397`*^9, 
   3.6382691503097396`*^9}, {3.6382692475767393`*^9, 
   3.6382693275847397`*^9}, {3.6382696526327395`*^9, 3.63826967741074*^9}, {
   3.6382697164597397`*^9, 3.6382697988737392`*^9}, {3.6382699553217397`*^9, 
   3.6382700336477394`*^9}, {3.6382701314187393`*^9, 
   3.6382701389257393`*^9}, {3.6382702211047397`*^9, 3.63827025845774*^9}, {
   3.6382702930047398`*^9, 3.6382703015597396`*^9}}],

Cell[BoxData[
 RowBox[{
  TagBox[
   RowBox[{"(", "\[NoBreak]", 
    TagBox[GridBox[{
       {"\<\"Abits\"\>"},
       {"\<\"Abasis\"\>"},
       {"\<\"Bbasis\"\>"},
       {"\<\"Bbits\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.5599999999999999]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     Column], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], " ", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", "0", "0", "1", "0", "1", "1", "1", "0", "1", "1", "1", "1", "0", 
       "1", "1", "0", "0", "1", "0", "1", "1", "0", "0", "0", "1", "1", "0", 
       "1", "1", "0", "1", "1", "1", "0", "1", "1", "0", "0", "0", "0", "0", 
       "1", "0", "1", "1", "1", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
       "0", "0", "1", "1", "0", "0", "1", "1", "1", "0", "1", "1", "1", "1", 
       "0", "1", "1", "1", "1", "1", "1", "0", "1", "1", "0", "1", "1", "0", 
       "0", "1", "0", "0", "1", "1", "1", "1", "0", "0", "0", "1", "0", "0", 
       "1", "1", "0", "1", "0", "1", "1", "0", "0", "0", "1", "1", "1", "0", 
       "1", "0", "0", "1", "0", "1", "1", "0", "0", "0", "0", "0", "1", "1", 
       "0", "0", "0", "0", "0", "1", "1", "1", "1", "1", "1", "1", "0", "0", 
       "0", "1", "1", "1", "1", "1", "0", "1", "0", "1", "1", "0", "1", "1", 
       "1", "0", "1", "0", "1", "0", "0", "0", "1", "0", "1", "1", "1", "1", 
       "1", "0", "1", "0", "1", "1", "0", "1", "0", "0", "0", "1", "1", "1", 
       "1", "1", "0", "0", "0", "1", "0", "1", "0", "0", "0", "0", "0", "0", 
       "1", "1", "1", "0"},
      {"\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", \
"\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\
\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", \
"\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\
\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", \
"\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\
\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", \
"\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\
\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", \
"\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\
\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\
\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", \
"\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\
\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", \
"\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\
\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\
\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\
\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\
\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\
\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", \
"\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\
\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\
\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", \
"\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\
\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", \
"\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\
\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\
\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", \
"\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\
\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>"},
      {"\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", \
"\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\
\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", \
"\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\
\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\
\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", \
"\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\
\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\
\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\
\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\
\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", \
"\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\
\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", \
"\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\
\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", \
"\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\
\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\
\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", \
"\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\
\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\
\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", \
"\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\
\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", \
"\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\
\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", \
"\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\
\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", \
"\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\
\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", \
"\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\
\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>"},
      {"0", "0", "0", "1", "0", "1", "1", "1", "0", "1", "1", "1", "1", "0", 
       "1", "1", "0", "0", "1", "1", "1", "1", "1", "1", "1", "0", "0", "0", 
       "1", "1", "1", "1", "1", "1", "1", "1", "1", "0", "0", "0", "0", "0", 
       "0", "1", "1", "1", "0", "0", "0", "0", "1", "0", "0", "0", "0", "1", 
       "0", "1", "1", "1", "0", "0", "1", "1", "1", "0", "1", "1", "1", "0", 
       "0", "0", "0", "1", "1", "1", "1", "1", "0", "0", "0", "0", "1", "0", 
       "1", "1", "0", "0", "0", "1", "1", "1", "0", "0", "0", "1", "0", "0", 
       "1", "0", "1", "1", "0", "1", "0", "0", "1", "0", "1", "1", "1", "0", 
       "1", "0", "0", "1", "1", "1", "0", "0", "1", "1", "0", "1", "0", "1", 
       "1", "0", "1", "0", "0", "1", "1", "1", "1", "1", "0", "0", "0", "1", 
       "0", "1", "0", "1", "1", "1", "0", "1", "1", "1", "1", "0", "1", "1", 
       "0", "1", "1", "0", "1", "0", "0", "0", "1", "1", "0", "1", "1", "1", 
       "0", "0", "1", "1", "1", "1", "0", "1", "0", "0", "0", "1", "1", "1", 
       "1", "0", "0", "0", "1", "1", "1", "1", "0", "0", "1", "1", "0", "0", 
       "1", "1", "1", "0"}
     },
     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.605268370433*^9, {3.6052685676540003`*^9, 3.605268576275*^9}, 
   3.605268743465*^9, 3.605268811506*^9, 3.6052689470220003`*^9, 
   3.605269016685*^9, 3.605269110332*^9, 3.6052691652200003`*^9, 
   3.6382669356577396`*^9, {3.6382672880977397`*^9, 3.6382673471287394`*^9}, 
   3.6382677413827395`*^9, {3.6382678080337396`*^9, 3.63826782895774*^9}, {
   3.6382678888237395`*^9, 3.6382679071447396`*^9}, {3.6382679485277395`*^9, 
   3.6382679725267396`*^9}, 3.63826801915374*^9, {3.6382682460127397`*^9, 
   3.6382682867287397`*^9}, 3.6382683809517393`*^9, 3.6382684767317395`*^9, 
   3.6382686671897397`*^9, 3.6382691679307394`*^9, 3.63826920693174*^9, 
   3.6382693451097393`*^9, 3.63827008220774*^9, 3.6382701620437393`*^9, 
   3.6382712376187396`*^9}],

Cell[BoxData[
 RowBox[{"99", " ", "\<\"bases iguales\"\>"}]], "Output",
 CellChangeTimes->{
  3.605268370433*^9, {3.6052685676540003`*^9, 3.605268576275*^9}, 
   3.605268743465*^9, 3.605268811506*^9, 3.6052689470220003`*^9, 
   3.605269016685*^9, 3.605269110332*^9, 3.6052691652200003`*^9, 
   3.6382669356577396`*^9, {3.6382672880977397`*^9, 3.6382673471287394`*^9}, 
   3.6382677413827395`*^9, {3.6382678080337396`*^9, 3.63826782895774*^9}, {
   3.6382678888237395`*^9, 3.6382679071447396`*^9}, {3.6382679485277395`*^9, 
   3.6382679725267396`*^9}, 3.63826801915374*^9, {3.6382682460127397`*^9, 
   3.6382682867287397`*^9}, 3.6382683809517393`*^9, 3.6382684767317395`*^9, 
   3.6382686671897397`*^9, 3.6382691679307394`*^9, 3.63826920693174*^9, 
   3.6382693451097393`*^9, 3.63827008220774*^9, 3.6382701620437393`*^9, 
   3.63827123764174*^9}],

Cell[BoxData[
 RowBox[{"150", 
  " ", "\<\"bits iguales: se agregan los bits que corresponden a diferentes \
bases que pueden ser iguales con probabilidad 1/2\"\>"}]], "Output",
 CellChangeTimes->{
  3.605268370433*^9, {3.6052685676540003`*^9, 3.605268576275*^9}, 
   3.605268743465*^9, 3.605268811506*^9, 3.6052689470220003`*^9, 
   3.605269016685*^9, 3.605269110332*^9, 3.6052691652200003`*^9, 
   3.6382669356577396`*^9, {3.6382672880977397`*^9, 3.6382673471287394`*^9}, 
   3.6382677413827395`*^9, {3.6382678080337396`*^9, 3.63826782895774*^9}, {
   3.6382678888237395`*^9, 3.6382679071447396`*^9}, {3.6382679485277395`*^9, 
   3.6382679725267396`*^9}, 3.63826801915374*^9, {3.6382682460127397`*^9, 
   3.6382682867287397`*^9}, 3.6382683809517393`*^9, 3.6382684767317395`*^9, 
   3.6382686671897397`*^9, 3.6382691679307394`*^9, 3.63826920693174*^9, 
   3.6382693451097393`*^9, 3.63827008220774*^9, 3.6382701620437393`*^9, 
   3.6382712376437397`*^9}],

Cell[BoxData["\<\"A y B comparten las bases empleadas usando medios de \
comunicaci\[OAcute]n no seguros (no importan que alguien conozca esas bases) \
e identifican los casos en que se midieron en las mismas bases con color \
rojo:la secuencia de bits comunes y seguros son los de color rojo\"\>"], \
"Output",
 CellChangeTimes->{
  3.605268370433*^9, {3.6052685676540003`*^9, 3.605268576275*^9}, 
   3.605268743465*^9, 3.605268811506*^9, 3.6052689470220003`*^9, 
   3.605269016685*^9, 3.605269110332*^9, 3.6052691652200003`*^9, 
   3.6382669356577396`*^9, {3.6382672880977397`*^9, 3.6382673471287394`*^9}, 
   3.6382677413827395`*^9, {3.6382678080337396`*^9, 3.63826782895774*^9}, {
   3.6382678888237395`*^9, 3.6382679071447396`*^9}, {3.6382679485277395`*^9, 
   3.6382679725267396`*^9}, 3.63826801915374*^9, {3.6382682460127397`*^9, 
   3.6382682867287397`*^9}, 3.6382683809517393`*^9, 3.6382684767317395`*^9, 
   3.6382686671897397`*^9, 3.6382691679307394`*^9, 3.63826920693174*^9, 
   3.6382693451097393`*^9, 3.63827008220774*^9, 3.6382701620437393`*^9, 
   3.6382712376457396`*^9}],

Cell[BoxData[
 RowBox[{
  TagBox[
   RowBox[{"(", "\[NoBreak]", 
    TagBox[GridBox[{
       {"\<\"Abits\"\>"},
       {"\<\"Abasis\"\>"},
       {"\<\"Bbasis\"\>"},
       {"\<\"Bbits\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.5599999999999999]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     Column], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], " ", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", "0", "0", "1", "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "0", "1", "0", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "0", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", "1", "0", "1", "1", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", "0", "1", "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "1", "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "1", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", "1", "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", "1", "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "1", "1", "1", "1", "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]]},
      {
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\
\<\"Sz\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\
\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\
\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\
\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\
\<\"Sx\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]]},
      {
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\
\<\"Sx\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\
\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\
\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\
\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sz\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[
         1, 0, 0]], "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sx\"\>", "\<\"Sz\"\>", "\
\<\"Sz\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", "\<\"Sz\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sx\"\>", "\<\"Sx\"\>", 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "\<\"Sz\"\>", 
       StyleBox["\<\"Sz\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["\<\"Sx\"\>",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]]},
      {
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", "1", "1", "0", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "0", "0", "1", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "0", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", "0", "0", "0", "0", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", "1", "0", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "1", "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "0", "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", "1", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", "0", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", "0", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "0", "1", "1", "1", "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "0", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", "1", 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], "1", 
       StyleBox["1",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]], 
       StyleBox["0",
        StripOnInput->False,
        FontColor->RGBColor[1, 0, 0]]}
     },
     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.605268370433*^9, {3.6052685676540003`*^9, 3.605268576275*^9}, 
   3.605268743465*^9, 3.605268811506*^9, 3.6052689470220003`*^9, 
   3.605269016685*^9, 3.605269110332*^9, 3.6052691652200003`*^9, 
   3.6382669356577396`*^9, {3.6382672880977397`*^9, 3.6382673471287394`*^9}, 
   3.6382677413827395`*^9, {3.6382678080337396`*^9, 3.63826782895774*^9}, {
   3.6382678888237395`*^9, 3.6382679071447396`*^9}, {3.6382679485277395`*^9, 
   3.6382679725267396`*^9}, 3.63826801915374*^9, {3.6382682460127397`*^9, 
   3.6382682867287397`*^9}, 3.6382683809517393`*^9, 3.6382684767317395`*^9, 
   3.6382686671897397`*^9, 3.6382691679307394`*^9, 3.63826920693174*^9, 
   3.6382693451097393`*^9, 3.63827008220774*^9, 3.6382701620437393`*^9, 
   3.6382712376597395`*^9}],

Cell[BoxData["\<\"A y B comparten 1/3 de los bits del conjunto rojo elegidos \
en forma aleatoria usando medios de comunicaci\[OAcute]n no seguros \
(sacrifican 1/3 de los bits). Si hay dos bits diferentes hubo ruido en la \
linea o un tercer observador E alter\[OAcute] al menos un bit. Probabilidad \
de que E no altere la secuencia de N/3 bits es (1/2)^(N/3).\\nSi todos los \
bits son iguales se eligen los 2N/3 bits no compartidos\"\>"], "Output",
 CellChangeTimes->{
  3.605268370433*^9, {3.6052685676540003`*^9, 3.605268576275*^9}, 
   3.605268743465*^9, 3.605268811506*^9, 3.6052689470220003`*^9, 
   3.605269016685*^9, 3.605269110332*^9, 3.6052691652200003`*^9, 
   3.6382669356577396`*^9, {3.6382672880977397`*^9, 3.6382673471287394`*^9}, 
   3.6382677413827395`*^9, {3.6382678080337396`*^9, 3.63826782895774*^9}, {
   3.6382678888237395`*^9, 3.6382679071447396`*^9}, {3.6382679485277395`*^9, 
   3.6382679725267396`*^9}, 3.63826801915374*^9, {3.6382682460127397`*^9, 
   3.6382682867287397`*^9}, 3.6382683809517393`*^9, 3.6382684767317395`*^9, 
   3.6382686671897397`*^9, 3.6382691679307394`*^9, 3.63826920693174*^9, 
   3.6382693451097393`*^9, 3.63827008220774*^9, 3.6382701620437393`*^9, 
   3.6382712376697397`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1664, 929},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 211, 4, 101, "Title"],
Cell[CellGroupData[{
Cell[815, 30, 9283, 233, 452, "Input"],
Cell[10101, 265, 10061, 153, 72, "Output"],
Cell[20165, 420, 845, 13, 31, "Output"],
Cell[21013, 435, 954, 15, 31, "Output"],
Cell[21970, 452, 1088, 16, 52, "Output"],
Cell[23061, 470, 43673, 1281, 72, "Output"],
Cell[66737, 1753, 1229, 17, 104, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)