LazyOddCalc32Nodes2000Steps.nb

(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      9098,        266]
NotebookOptionsPosition[      8506,        241]
NotebookOutlinePosition[      8852,        256]
CellTagsIndexPosition[      8809,        253]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"Get", "[", 
  RowBox[{"\"\<lqrw.m\>\"", ",", " ", 
   RowBox[{"Path", " ", "->", " ", 
    RowBox[{"{", "\"\<f:\\\\MSc\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BitOrder", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]", "=", 
   SuperscriptBox["\[ExponentialE]", 
    FractionBox[
     RowBox[{"\[Pi]", " ", "2", " ", "\[ImaginaryI]"}], "BitOrder"]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"a", "b", "c"},
      {"d", "e", "f"},
      {"g", "h", "i"}
     },
     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]", ")"}], "=", 
   RowBox[{"H", "=", 
    FractionBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"1", "1", "1"},
        {"1", 
         SuperscriptBox["\[Sigma]", 
          RowBox[{"BitOrder", "-", "1"}]], "\[Sigma]"},
        {"1", "\[Sigma]", 
         SuperscriptBox["\[Sigma]", 
          RowBox[{"BitOrder", "-", "1"}]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
     SqrtBox["BitOrder"]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Test", "=", 
   RowBox[{"Normal", "[", 
    RowBox[{"SparseArray", "[", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "a1"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "b1"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "c1"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "a2"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "b2"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "c2"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "a3"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "b3"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "c3"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "a4"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "b4"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "c4"}]}], 
      "\[IndentingNewLine]", "}"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Test", " ", "=", " ", 
  RowBox[{"Normal", "[", 
   RowBox[{"SparseArray", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]}], 
     "\[IndentingNewLine]", "}"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5055566265563297`*^9, 3.5055566564697857`*^9}, {
   3.5055572518497157`*^9, 3.5055572798703613`*^9}, {3.505567144642047*^9, 
   3.5055672372142467`*^9}, {3.5055681844192467`*^9, 
   3.5055681850910788`*^9}, {3.505568414279535*^9, 3.505568438668599*^9}, {
   3.505568490509031*^9, 3.505568493618207*^9}, 3.5055687942552147`*^9, 
   3.505568849657919*^9, {3.5055694097314467`*^9, 3.5055694265897427`*^9}, 
   3.5055739300671268`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "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]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.505573930270239*^9, 3.5056549076052847`*^9, 
  3.5056610238221254`*^9, 3.505746575880637*^9, 3.505746671838946*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"StatesToPositionalProbabilites", "[", 
  RowBox[{"SingleLazyItteration", "[", 
   RowBox[{"Test", ",", "H"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"StatesToPositionalProbabilites", "[", 
   RowBox[{"MultipleLazySteps", "[", 
    RowBox[{"Test", ",", "H", ",", "10"}], "]"}], "]"}], "]"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LazyOdd32Nodes2000Steps", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"StatesToPositionalProbabilites", "/@", 
       RowBox[{"MultipleLazyStepsHistory", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Normal", "[", 
          RowBox[{"SparseArray", "[", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{"v", ",", "3"}], "}"}], "\[Rule]", "0"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]}], 
            "\[IndentingNewLine]", "}"}], "]"}], "]"}], "\[IndentingNewLine]",
          ",", "H", ",", "2000"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"v", ",", 
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", "32", ",", "2"}], "]"}]}], "}"}]}], "]"}]}], ">>", 
   "\"\<c:\\\\tmp\\\\LazyOdd32Nodes2000Steps.txt\>\""}], ";"}]], "Input",
 CellChangeTimes->{{3.505574669472927*^9, 3.505574753498799*^9}, {
   3.505575532198959*^9, 3.505575552338295*^9}, {3.505654551389822*^9, 
   3.5056546547971354`*^9}, {3.5056607807157345`*^9, 3.50566089674627*^9}, {
   3.505661029024518*^9, 3.5056610472407026`*^9}, {3.5057418697833414`*^9, 
   3.5057418708301024`*^9}, 3.5057434100376186`*^9, {3.505746584832788*^9, 
   3.5057465935505896`*^9}, {3.505746744034215*^9, 3.5057467530019894`*^9}}],

Cell[BoxData[
 FormBox["$Aborted", TraditionalForm]], "Output",
 CellChangeTimes->{3.505654901028086*^9, 3.505741027406252*^9, 
  3.505743461453899*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{"1", ",", "32", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.5057466779632797`*^9, 3.5057467331291513`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
   "1", ",", "3", ",", "5", ",", "7", ",", "9", ",", "11", ",", "13", ",", 
    "15", ",", "17", ",", "19", ",", "21", ",", "23", ",", "25", ",", "27", 
    ",", "29", ",", "31"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.5057466828065023`*^9, 3.5057467337384605`*^9}}]
}, Open  ]]
},
WindowSize->{616, 750},
WindowMargins->{{544, Automatic}, {Automatic, 73}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 4594, 126, 530, "Input"],
Cell[5164, 150, 745, 20, 80, "Output"]
}, Open  ]],
Cell[5924, 173, 362, 7, 52, "Input"],
Cell[CellGroupData[{
Cell[6311, 184, 1484, 32, 172, "Input"],
Cell[7798, 218, 152, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7987, 226, 162, 3, 31, "Input"],
Cell[8152, 231, 338, 7, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)