RBC_Mathematica.nb

(* 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[     37652,        807]
NotebookOptionsPosition[     36142,        758]
NotebookOutlinePosition[     36550,        776]
CellTagsIndexPosition[     36507,        773]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"AbsoluteTiming", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  
  RowBox[{"(*", " ", 
   RowBox[{"Compiling", " ", "the", " ", "inner", " ", "Loop"}], " ", "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"NOTE", ":", " ", 
    RowBox[{
     RowBox[{"Using", " ", "the", " ", "un"}], "-", 
     RowBox[{
     "documented", " ", "Compile`GetElement", " ", "function", " ", "instead",
       " ", "of", " ", "Part"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"innerLoop", " ", "=", " ", 
    RowBox[{"Compile", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"mOutput", ",", " ", "_Real", ",", " ", "2"}], "}"}], ",", 
        " ", 
        RowBox[{"{", 
         RowBox[{"vGridCapital", ",", " ", "_Real", ",", " ", "1"}], "}"}], 
        ",", " ", 
        RowBox[{"{", 
         RowBox[{"nGridCapital", ",", " ", "_Integer"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"nGridProductivity", ",", " ", "_Integer"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"expectedValueFunction", ",", " ", "_Real", ",", " ", "2"}], 
         "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"With", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"initialCapital", " ", "=", " ", 
          RowBox[{"First", "[", "vGridCapital", "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Table", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Module", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"gridCapitalNextPeriod", "=", "1"}], "}"}], ",", " ", 
            "\[IndentingNewLine]", 
            RowBox[{"Table", "[", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"With", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"output", " ", "=", " ", 
                  RowBox[{"Compile`GetElement", "[", 
                   RowBox[{"mOutput", ",", "nCapital", ",", "nProductivity"}],
                    "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
                RowBox[{"Module", "[", 
                 RowBox[{
                  RowBox[{"{", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"valueProvisional", " ", "=", "0."}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"valueHighSoFar", "=", 
                    RowBox[{"-", "1000.0"}]}], ",", " ", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "capitalChoice", " ", "=", " ", "initialCapital"}]}], 
                   "}"}], ",", " ", "\[IndentingNewLine]", 
                  RowBox[{"Catch", "@", 
                   RowBox[{"Do", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"valueProvisional", "=", 
                    RowBox[{
                    RowBox[{"0.05", " ", 
                    RowBox[{"Log", "[", 
                    RowBox[{"output", " ", "-", 
                    RowBox[{"Compile`GetElement", "[", 
                    RowBox[{"vGridCapital", ",", "nCapitalNextPeriod"}], 
                    "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", 
                    RowBox[{"0.95", 
                    RowBox[{"Compile`GetElement", "[", 
                    RowBox[{
                    "expectedValueFunction", ",", " ", "nCapitalNextPeriod", 
                    ",", "nProductivity"}], "]"}]}]}]}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"valueProvisional", ">", "valueHighSoFar"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"valueHighSoFar", "=", "valueProvisional"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"capitalChoice", "=", 
                    RowBox[{"Compile`GetElement", "[", 
                    RowBox[{"vGridCapital", ",", "nCapitalNextPeriod"}], 
                    "]"}]}], ";", "\[IndentingNewLine]", 
                    RowBox[{
                    "gridCapitalNextPeriod", "=", "nCapitalNextPeriod"}], 
                    ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
                    
                    RowBox[{"Throw", "[", 
                    RowBox[{"{", 
                    RowBox[{"valueHighSoFar", ",", " ", "capitalChoice"}], 
                    "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ",", 
                    "\[IndentingNewLine]", " ", 
                    RowBox[{"{", 
                    RowBox[{
                    "nCapitalNextPeriod", ",", " ", "gridCapitalNextPeriod", 
                    ",", " ", "nGridCapital"}], "}"}]}], "]"}]}]}], "]"}]}], 
               "]"}], ",", " ", "\[IndentingNewLine]", 
              RowBox[{"{", 
               RowBox[{"nCapital", ",", " ", "nGridCapital"}], "}"}]}], 
             "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"nProductivity", ",", "nGridProductivity"}], "}"}]}], 
         "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"CompilationTarget", "\[Rule]", "\"\<C\>\""}], ",", 
      RowBox[{"\"\<RuntimeOptions\>\"", "\[Rule]", " ", "\"\<Speed\>\""}]}], 
     " ", "]"}]}], ";", "\n", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"1.", " ", "Calibration"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"\[Alpha]", "=", " ", "0.333333333333"}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"\[Beta]", "=", " ", "0.95"}], ";", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Productivity", " ", "values"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"vProductivity", " ", "=", 
    RowBox[{"{", 
     RowBox[{
     "0.9792", ",", "0.9896", ",", " ", "1.0000", ",", "1.0106", ",", 
      "1.0212"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   
   RowBox[{"(*", " ", 
    RowBox[{"Transition", " ", "matrix"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"mTransition", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "0.9727", ",", "0.0273", ",", "0.0000", ",", "0.0000", ",", "0.0000"}],
        "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "0.0041", ",", "0.9806", ",", "0.0153", ",", "0.0000", ",", "0.0000"}],
        "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "0.0000", ",", "0.0082", ",", "0.9837", ",", "0.0082", ",", "0.0000"}],
        "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "0.0000", ",", "0.0000", ",", "0.0153", ",", "0.9806", ",", "0.0041"}],
        "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "0.0000", ",", "0.0000", ",", "0.0000", ",", "0.0273", ",", "0.9727"}],
        "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"mTransitionTransposed", " ", "=", " ", 
    RowBox[{"Transpose", "[", "mTransition", "]"}]}], ";", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"2.", " ", "Steady", " ", "State"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    SubscriptBox["k", "ss"], "=", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Alpha]", " ", "\[Beta]"}], ")"}], 
     FractionBox["1", 
      RowBox[{"1", "-", "\[Alpha]"}]]]}], ";", "\n", "  ", 
   RowBox[{
    SubscriptBox["y", "ss"], "=", 
    SuperscriptBox[
     SubscriptBox["k", "ss"], "\[Alpha]"]}], ";", "\n", "  ", 
   RowBox[{
    SubscriptBox["c", "ss"], "=", 
    RowBox[{
     SubscriptBox["y", "ss"], "-", 
     SubscriptBox["k", "ss"]}]}], ";", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "We", " ", "generate", " ", "the", " ", "grid", " ", "of", " ", 
     "capital"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"vGridCapital", "=", 
    RowBox[{"Range", "[", 
     RowBox[{
      RowBox[{"0.5", 
       SubscriptBox["k", "ss"]}], ",", 
      RowBox[{"1.5", " ", 
       SubscriptBox["k", "ss"]}], ",", "0.00001"}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"nGridCapital", "=", 
    RowBox[{"Length", "[", "vGridCapital", "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"nGridProductivity", "=", 
    RowBox[{"Length", "[", "vProductivity", "]"}]}], ";", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "3.", " ", "Required", " ", "matrices", " ", "and", " ", "vectors"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"mOutput", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"nGridCapital", ",", "nGridProductivity"}], "}"}]}], "]"}]}], 
   ";", "\n", "  ", 
   RowBox[{"mValueFunction", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"nGridCapital", ",", "nGridProductivity"}], "}"}]}], "]"}]}], 
   ";", "\n", "  ", 
   RowBox[{"mValueFunctionNew", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"nGridCapital", ",", "nGridProductivity"}], "}"}]}], "]"}]}], 
   ";", "\n", "  ", 
   RowBox[{"mPolicyFunction", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"nGridCapital", ",", "nGridProductivity"}], "}"}]}], "]"}]}], 
   ";", 
   RowBox[{"expectedValueFunction", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"nGridCapital", ",", "nGridProductivity"}], "}"}]}], "]"}]}], 
   ";", "\[IndentingNewLine]", "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"4.", " ", "We", " ", "pre"}], "-", 
     RowBox[{
     "build", " ", "output", " ", "for", " ", "each", " ", "point", " ", "in",
       " ", "the", " ", "grid"}]}], "*)"}], "\[IndentingNewLine]", " ", 
   RowBox[{"mOutput", " ", "=", " ", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       SuperscriptBox["vGridCapital", "\[Alpha]"], "}"}], "]"}], ".", 
     RowBox[{"{", "vProductivity", "}"}]}]}], ";", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "FixedPoint", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"tolerance", "=", "0.0000001"}], ";", "\n", "  ", 
   RowBox[{"iteration", "=", "0"}], ";", "\[IndentingNewLine]", 
   RowBox[{"dis", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"outer", " ", "Loop", " ", "function"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"outerLoop", "[", 
     RowBox[{"{", 
      RowBox[{"mValueFunction_", ",", " ", "mPolicyFunction_"}], "}"}], "]"}],
     ":=", " ", 
    RowBox[{"Transpose", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"innerLoop", "[", 
       RowBox[{
       "mOutput", ",", "vGridCapital", ",", " ", "nGridCapital", ",", 
        "nGridProductivity", ",", "\[IndentingNewLine]", 
        RowBox[{"Dot", "[", 
         RowBox[{"mValueFunction", ",", "mTransitionTransposed"}], "]"}]}], 
       "]"}], ",", " ", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"3", ",", " ", "2", ",", " ", "1"}], "}"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "Iteration", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"mValueFunction", ",", " ", "mPolicyFunction"}], "}"}], "=", " ", 
    RowBox[{"FixedPoint", "[", 
     RowBox[{"outerLoop", ",", " ", 
      RowBox[{"{", 
       RowBox[{"mValueFunction", ",", " ", "mPolicyFunction"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"SameTest", "\[Rule]", "\[IndentingNewLine]", 
       RowBox[{"(", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"dis", " ", "=", 
            RowBox[{"Max", "[", 
             RowBox[{"Abs", "[", 
              RowBox[{
               RowBox[{"#1", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"#2", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", "  ", 
           "\[IndentingNewLine]", " ", 
           RowBox[{"iteration", "++"}], ";", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Mod", "[", 
                RowBox[{"iteration", ",", "10"}], "]"}], "\[Equal]", "0"}], 
              " ", "||", "  ", 
              RowBox[{"iteration", " ", "\[Equal]", " ", "1"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{"StringForm", "[", 
               RowBox[{
               "\"\<Iteration = ``, Sup Diff = ``\>\"", ",", " ", "iteration",
                 ",", "dis"}], "]"}], "]"}]}], "]"}], ";", " ", 
           "\[IndentingNewLine]", 
           RowBox[{"dis", "<", "tolerance"}]}], " ", ")"}], "&"}], 
        "\[IndentingNewLine]", ")"}]}]}], "\[IndentingNewLine]", "]"}]}], ";",
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"StringForm", "[", 
     RowBox[{
     "\"\<Iteration = ``, Sup Diff = ``\>\"", ",", " ", "iteration", ",", 
      "dis"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"StringForm", "[", 
     RowBox[{"\"\<My check = ``\>\"", ",", 
      RowBox[{"mPolicyFunction", "[", 
       RowBox[{"[", 
        RowBox[{"1000", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.5846306682079163`*^9, 3.584630735618572*^9}, {
   3.584630776252343*^9, 3.584630879969584*^9}, {3.584630923608036*^9, 
   3.584631095703539*^9}, {3.584631266024363*^9, 3.5846313062995777`*^9}, 
   3.584631350801435*^9, {3.5846315403193893`*^9, 3.584631638513904*^9}, {
   3.5846316835027122`*^9, 3.584631696438438*^9}, {3.5846317848009777`*^9, 
   3.584631826256612*^9}, {3.584631890111478*^9, 3.5846319919441977`*^9}, {
   3.584632266434929*^9, 3.584632267489297*^9}, {3.584632830309516*^9, 
   3.584632844450457*^9}, {3.584632886610779*^9, 3.5846328869951878`*^9}, {
   3.584633479970128*^9, 3.584633487384995*^9}, 3.584633632727571*^9, {
   3.584633725008789*^9, 3.584633764102736*^9}, 3.584634072641005*^9, {
   3.584634197282297*^9, 3.584634319219901*^9}, {3.5846343560783463`*^9, 
   3.5846343986028137`*^9}, {3.5846344989571123`*^9, 3.584634503307355*^9}, {
   3.584634567122217*^9, 3.5846345899181137`*^9}, {3.5846346395341463`*^9, 
   3.584634684603146*^9}, {3.584634725724728*^9, 3.584634737018153*^9}, 
   3.584634922641015*^9, {3.5846349793243*^9, 3.584635055686584*^9}, {
   3.584635179164765*^9, 3.584635179485058*^9}, {3.584635209627819*^9, 
   3.584635253564048*^9}, {3.584635300618244*^9, 3.5846353159655952`*^9}, 
   3.5846353648356333`*^9, {3.584635469043132*^9, 3.5846355248219748`*^9}, {
   3.5846355664729433`*^9, 3.5846356157066183`*^9}, {3.58463576651217*^9, 
   3.584635880330806*^9}, {3.584635932822137*^9, 3.5846359941312532`*^9}, {
   3.584636050518354*^9, 3.5846360731446953`*^9}, {3.584636111569872*^9, 
   3.584636153068194*^9}, 3.5846361919155807`*^9, {3.584636228871002*^9, 
   3.584636246953108*^9}, {3.5846363005485067`*^9, 3.584636301530733*^9}, {
   3.584636368732749*^9, 3.584636400257228*^9}, {3.5846364310065947`*^9, 
   3.584636631138157*^9}, {3.584636721127604*^9, 3.584636860417894*^9}, {
   3.5846369047013083`*^9, 3.5846369079224*^9}, {3.584637019219225*^9, 
   3.584637039779928*^9}, {3.584637177221635*^9, 3.5846372155455503`*^9}, {
   3.5846373578185263`*^9, 3.584637360437106*^9}, {3.584637414188767*^9, 
   3.584637507911108*^9}, {3.584637542210458*^9, 3.58463755782082*^9}, {
   3.584637622703624*^9, 3.5846376229493303`*^9}, {3.58463770262567*^9, 
   3.584637709538363*^9}, {3.584637747240013*^9, 3.5846377475438213`*^9}, {
   3.584637806081025*^9, 3.584637809711335*^9}, {3.58463788987212*^9, 
   3.584638009353263*^9}, {3.584638102213913*^9, 3.5846381483551283`*^9}, 
   3.5846383034701643`*^9, {3.584638349388652*^9, 3.584638388403916*^9}, {
   3.584638671081318*^9, 3.584638777613783*^9}, {3.584638934780575*^9, 
   3.5846389391716347`*^9}, {3.584638970633809*^9, 3.584638971460761*^9}, {
   3.584653746235396*^9, 3.584653746977951*^9}, {3.584653903426301*^9, 
   3.58465393237663*^9}, {3.584654108582027*^9, 3.584654216449576*^9}, {
   3.5846543087056427`*^9, 3.584654346428083*^9}, {3.584654435083221*^9, 
   3.584654441722088*^9}, 3.584654534974717*^9, {3.584654567938138*^9, 
   3.584654589452366*^9}, {3.58465466464844*^9, 3.584654689688072*^9}, {
   3.5846548685196543`*^9, 3.584654902357936*^9}, {3.5846549410236893`*^9, 
   3.5846549417554483`*^9}, {3.5846549743315983`*^9, 3.584655050897027*^9}, {
   3.584655170796872*^9, 3.584655206942562*^9}, {3.584655253031302*^9, 
   3.584655270042478*^9}, {3.584655361093749*^9, 3.584655402903014*^9}, {
   3.584655452691639*^9, 3.5846554536941853`*^9}, {3.584655631582487*^9, 
   3.584655632286879*^9}, 3.5846557525665693`*^9, {3.584655904448348*^9, 
   3.58465594506713*^9}, {3.584656069234003*^9, 3.584656077367999*^9}, {
   3.584656109882598*^9, 3.584656165457362*^9}, {3.584656212050213*^9, 
   3.5846562606149178`*^9}, 3.584656458532299*^9, {3.5846565245865307`*^9, 
   3.584656678524419*^9}, {3.5846567097900953`*^9, 3.5846567558360653`*^9}, {
   3.5846569022553377`*^9, 3.584656905517365*^9}, 3.584656943684619*^9, {
   3.584657000686372*^9, 3.584657004094679*^9}, {3.5846570519495363`*^9, 
   3.584657053663232*^9}, {3.584657147987688*^9, 3.584657152052088*^9}, {
   3.584657239090324*^9, 3.584657240824882*^9}, {3.584657359313053*^9, 
   3.584657389462154*^9}, {3.584657454420285*^9, 3.584657466734055*^9}, 
   3.58465776915736*^9, {3.5846579528881197`*^9, 3.584657954553339*^9}, 
   3.584658380612658*^9, {3.584658412891932*^9, 3.584658415562222*^9}, {
   3.584658535968289*^9, 3.584658536964333*^9}, {3.584658734246684*^9, 
   3.5846587474888887`*^9}, {3.584658794955592*^9, 3.584658899563531*^9}, {
   3.584658946479395*^9, 3.5846589468863173`*^9}, {3.5846589896888027`*^9, 
   3.5846590396214457`*^9}, {3.584659077542511*^9, 3.584659081813241*^9}, {
   3.584689657975124*^9, 3.584689674786891*^9}, {3.584689750248437*^9, 
   3.584689751573558*^9}, {3.584689872903369*^9, 3.5846900051924267`*^9}, {
   3.58469007372206*^9, 3.584690080294009*^9}, {3.58469012523381*^9, 
   3.584690194631998*^9}, {3.5846902615698223`*^9, 3.5846902661447153`*^9}, 
   3.584690385174383*^9, {3.584692297709449*^9, 3.584692355559654*^9}, {
   3.584692389682088*^9, 3.5846923954044847`*^9}, {3.58469245957306*^9, 
   3.584692461220242*^9}, 3.584692568293254*^9, {3.584692624018064*^9, 
   3.584692626266182*^9}, {3.584692667634684*^9, 3.5846926712411537`*^9}, {
   3.584692737515375*^9, 3.58469285827071*^9}, {3.584692904360652*^9, 
   3.584692972784519*^9}, 3.584693036193777*^9, {3.5846930746338787`*^9, 
   3.584693099733122*^9}, {3.584693296565711*^9, 3.584693327754486*^9}, {
   3.584693664394355*^9, 3.584693673723754*^9}, {3.584693972230011*^9, 
   3.5846940003639812`*^9}, {3.5848673225051622`*^9, 
   3.5848673760401897`*^9}, {3.584960321475877*^9, 3.584960515046008*^9}, {
   3.58496054638894*^9, 3.584960617204257*^9}, {3.584960675159724*^9, 
   3.58496067634107*^9}, {3.5849613271301727`*^9, 3.58496132903345*^9}, {
   3.584961362717745*^9, 3.584961396946703*^9}, {3.5849614360117493`*^9, 
   3.584961438170683*^9}, {3.584961568622175*^9, 3.584961583567399*^9}, 
   3.584964818314152*^9, {3.585524509126898*^9, 3.585524510150824*^9}, 
   3.5856063311571693`*^9, {3.5856068155354757`*^9, 3.5856068176147623`*^9}, {
   3.585607842673071*^9, 3.585607844813765*^9}, {3.585607913584051*^9, 
   3.585607948202743*^9}, {3.585608002619741*^9, 3.5856080076892633`*^9}, {
   3.5856081122347813`*^9, 3.585608116860621*^9}, {3.585608278630849*^9, 
   3.5856082788220167`*^9}, {3.585608317609104*^9, 3.58560831798881*^9}, {
   3.585608416491969*^9, 3.585608441041428*^9}, {3.585609866009879*^9, 
   3.585609886741611*^9}, {3.585609962103615*^9, 3.585609969700995*^9}, {
   3.5856106230263*^9, 3.585610635796145*^9}, {3.585610874159697*^9, 
   3.585610875236269*^9}, {3.5856110902940693`*^9, 3.5856110927223*^9}, {
   3.585752963106114*^9, 3.585752969528968*^9}, {3.585753074600917*^9, 
   3.585753081652508*^9}, {3.585753164861755*^9, 3.585753181029497*^9}, {
   3.5857532114509153`*^9, 3.585753212402307*^9}, {3.58575338118172*^9, 
   3.585753411710149*^9}, {3.585753444877486*^9, 3.58575346059914*^9}, {
   3.585753492066987*^9, 3.585753500636058*^9}, {3.58575357923068*^9, 
   3.58575358968198*^9}, {3.5857573250649357`*^9, 3.58575732527171*^9}, {
   3.5857644958828783`*^9, 3.585764499712311*^9}, 3.585767566337879*^9, {
   3.586023836214574*^9, 3.586023901220585*^9}, {3.586024606227931*^9, 
   3.5860246659978933`*^9}, {3.586028814060329*^9, 3.586028938222664*^9}, {
   3.586034203438451*^9, 3.5860342733217907`*^9}, {3.586034348595647*^9, 
   3.586034374022213*^9}, {3.5860346109373627`*^9, 3.5860346271489897`*^9}, {
   3.586034702445899*^9, 3.586034705575164*^9}, {3.586035007410861*^9, 
   3.5860350077670116`*^9}, {3.586532982119094*^9, 3.5865329842601643`*^9}, {
   3.58653304269457*^9, 3.586533063906625*^9}, 3.586533434917531*^9, {
   3.5865367315552893`*^9, 3.586536807484482*^9}, {3.5865368543197107`*^9, 
   3.586536935658094*^9}, {3.586536971162517*^9, 3.586537098666149*^9}, {
   3.586537140488637*^9, 3.5865371512451572`*^9}, {3.5865372607941236`*^9, 
   3.586537264701635*^9}, {3.586537302845489*^9, 3.5865374066403*^9}, {
   3.586537461090033*^9, 3.586537596600114*^9}, {3.586537626775559*^9, 
   3.586537630072906*^9}, {3.5865376755934877`*^9, 3.5865376767026987`*^9}, {
   3.586537713936192*^9, 3.5865377448542757`*^9}, {3.586537846678732*^9, 
   3.5865378705449457`*^9}, {3.586538056341888*^9, 3.586538091948902*^9}, {
   3.5865381361377497`*^9, 3.5865381509799833`*^9}, {3.586538531823449*^9, 
   3.586538580909464*^9}, {3.586538618128366*^9, 3.5865387987971687`*^9}, {
   3.5865388480707693`*^9, 3.5865388484722633`*^9}, {3.5865388855584106`*^9, 
   3.586538962375175*^9}, {3.58653900570689*^9, 3.586539023997862*^9}, {
   3.5865392589617968`*^9, 3.58653927820854*^9}, 3.586539358946329*^9, {
   3.586539458330318*^9, 3.5865394724615393`*^9}, {3.586539572338998*^9, 
   3.586539640417644*^9}, {3.586539896503442*^9, 3.586539896993541*^9}, {
   3.586539938962693*^9, 3.586539939969137*^9}, {3.5865400200149403`*^9, 
   3.5865400252372847`*^9}, 3.586540085782432*^9, {3.5865401587105837`*^9, 
   3.586540229688162*^9}, {3.5865404267377167`*^9, 3.58654044692384*^9}, {
   3.586540538584097*^9, 3.586540540982381*^9}, {3.586540572309102*^9, 
   3.586540964506837*^9}, {3.586540997213945*^9, 3.58654104438153*^9}, {
   3.586541094954677*^9, 3.586541210724801*^9}, {3.5865413527218924`*^9, 
   3.586541386132415*^9}, {3.586541435721169*^9, 3.586541636393073*^9}, {
   3.58654181020144*^9, 3.5865418312816763`*^9}, {3.586541861612742*^9, 
   3.586542019751219*^9}, {3.5865421252942533`*^9, 3.5865421416128283`*^9}, {
   3.586542282452943*^9, 3.586542301984826*^9}, {3.5865423461275597`*^9, 
   3.586542417050365*^9}, {3.586545557007167*^9, 3.586545575465344*^9}, {
   3.586545879348371*^9, 3.586545885341164*^9}, {3.58654593474685*^9, 
   3.586545975467239*^9}, {3.586546047854608*^9, 3.586546110987956*^9}, {
   3.586563046577084*^9, 3.586563089946258*^9}, {3.5865637217552357`*^9, 
   3.586563800455021*^9}, {3.586563961130766*^9, 3.586563986786468*^9}, {
   3.586564044942191*^9, 3.5865640792409143`*^9}, {3.5866173739747972`*^9, 
   3.586617378107417*^9}, {3.586617579110073*^9, 3.586617675467278*^9}, {
   3.586617707969853*^9, 3.586617738503025*^9}, {3.5866177856358643`*^9, 
   3.586617799578429*^9}, {3.586617840610794*^9, 3.586617843228529*^9}, {
   3.586617894831142*^9, 3.586617901454474*^9}, {3.5866179326240396`*^9, 
   3.586618001389895*^9}, {3.5866180565720797`*^9, 3.5866180582992764`*^9}, {
   3.58661825954285*^9, 3.586618375899507*^9}, {3.586625837469214*^9, 
   3.586625843204568*^9}, {3.586625883910424*^9, 3.586625884296959*^9}, 
   3.5866260128418827`*^9, {3.586626355501936*^9, 3.5866263811291227`*^9}, {
   3.586627087628255*^9, 3.586627108538507*^9}, {3.5866273061429462`*^9, 
   3.5866273100467443`*^9}, {3.586627365605133*^9, 3.586627369108637*^9}, 
   3.586627401236719*^9, {3.608762704871646*^9, 3.608762719833066*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(1\\), Sup Diff = \
\\!\\(0.052741593407291155`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 1, 0.052741593407291155`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762995632728*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(10\\), Sup Diff = \
\\!\\(0.031346948580398326`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 10, 0.031346948580398326`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762995703722*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(20\\), Sup Diff = \
\\!\\(0.018703459893341212`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 20, 0.018703459893341212`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762995788827*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(30\\), Sup Diff = \
\\!\\(0.01116551203396099`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 30, 0.01116551203396099],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762995872764*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(40\\), Sup Diff = \
\\!\\(0.006668541708126918`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 40, 0.006668541708126918],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762995952866*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(50\\), Sup Diff = \
\\!\\(0.0039842927487137025`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 50, 0.0039842927487137025`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.6087629960325603`*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(60\\), Sup Diff = \
\\!\\(0.0023813118039307524`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 60, 0.0023813118039307524`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762996115386*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(70\\), Sup Diff = \
\\!\\(0.0014236586450968591`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 70, 0.0014236586450968591`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.6087629961954517`*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(80\\), Sup Diff = \
\\!\\(0.0008513397747198503`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 80, 0.0008513397747198503],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.6087629962825727`*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(90\\), Sup Diff = \
\\!\\(0.0005092051752285665`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 90, 0.0005092051752285665],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.6087629963628798`*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(100\\), Sup Diff = \
\\!\\(0.0003046232442144303`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 100, 0.0003046232442144303],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762996443556*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(110\\), Sup Diff = \
\\!\\(0.000182264856322778`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 110, 0.000182264856322778],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762996526115*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(120\\), Sup Diff = \
\\!\\(0.00010906950872624499`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 120, 0.00010906950872624499`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762996618259*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(130\\), Sup Diff = \
\\!\\(0.00006527643736298216`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 130, 0.00006527643736298216],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762996702854*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(140\\), Sup Diff = \
\\!\\(0.00003907108212009014`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 140, 0.00003907108212009014],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762996783412*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(150\\), Sup Diff = \
\\!\\(0.00002338807712021218`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 150, 0.00002338807712021218],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762996865283*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(160\\), Sup Diff = \
\\!\\(0.000014008644637297785`\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 160, 0.000014008644637297785`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.6087629969531317`*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(170\\), Sup Diff = \
\\!\\(8.391317202871562`*^-6\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 170, 8.391317202871562*^-6],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762997035993*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(180\\), Sup Diff = \
\\!\\(5.026474538039061`*^-6\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 180, 5.026474538039061*^-6],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.6087629971177597`*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(190\\), Sup Diff = \
\\!\\(3.010899863764571`*^-6\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 190, 3.010899863764571*^-6],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762997218145*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(200\\), Sup Diff = \
\\!\\(1.8035522483250688`*^-6\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 200, 1.8035522483250688`*^-6],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762997300116*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(210\\), Sup Diff = \
\\!\\(1.0803409159487742`*^-6\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 210, 1.0803409159487742`*^-6],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762997381165*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(220\\), Sup Diff = \
\\!\\(6.471316944534067`*^-7\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 220, 6.471316944534067*^-7],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.6087629974704533`*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(230\\), Sup Diff = \
\\!\\(3.876361938104367`*^-7\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 230, 3.876361938104367*^-7],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.6087629975542507`*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(240\\), Sup Diff = \
\\!\\(2.3219657940831695`*^-7\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 240, 2.3219657940831695`*^-7],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.6087629976377687`*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(250\\), Sup Diff = \
\\!\\(1.3908720952748865`*^-7\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 250, 1.3908720952748865`*^-7],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.6087629977175503`*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"Iteration = \\!\\(257\\), Sup Diff = \
\\!\\(9.716035653806188`*^-8\\)\"\>",
  StringForm["Iteration = ``, Sup Diff = ``", 257, 9.716035653806188*^-8],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762997786063*^9}}],

Cell[BoxData[
 InterpretationBox["\<\"My check = \\!\\(0.1465491436962067`\\)\"\>",
  StringForm["My check = ``", 0.1465491436962067],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.608762726310748*^9, {3.6087628174987717`*^9, 3.608762997786817*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.25916700000000014725287655892316251993`6.374548248891341", ",", "Null"}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.5865409419754057`*^9, {3.5865409951881847`*^9, 3.5865410312748404`*^9}, {
   3.5865411458712883`*^9, 3.586541156351944*^9}, 3.586541218335545*^9, 
   3.586541394711624*^9, 3.586541474840341*^9, {3.586541513227335*^9, 
   3.586541579042294*^9}, 3.586541870167934*^9, {3.586541995552866*^9, 
   3.586542026779482*^9}, 3.586542149619885*^9, {3.586542372276658*^9, 
   3.586542382296754*^9}, {3.5865424263987713`*^9, 3.586542435733218*^9}, {
   3.586542502337798*^9, 3.586542512250208*^9}, {3.586545607519891*^9, 
   3.5865456183020487`*^9}, 3.586545867165803*^9, {3.586545949309019*^9, 
   3.586546024034461*^9}, {3.5865461159729767`*^9, 3.586546141643372*^9}, {
   3.586563072341427*^9, 3.586563094025134*^9}, {3.58656314142762*^9, 
   3.5865631475073*^9}, 3.586563506393731*^9, {3.586563737994925*^9, 
   3.5865637745989733`*^9}, {3.586563808812265*^9, 3.586563839612109*^9}, 
   3.5865639393585157`*^9, {3.586564083066354*^9, 3.586564093214705*^9}, {
   3.586617369303987*^9, 3.5866173867395267`*^9}, {3.586617583034234*^9, 
   3.586617591675441*^9}, {3.586617632661055*^9, 3.5866176884082623`*^9}, {
   3.5866177237591753`*^9, 3.5866177426530724`*^9}, {3.586617778309854*^9, 
   3.586618066778598*^9}, {3.586618275530282*^9, 3.586618326993565*^9}, {
   3.586618380825729*^9, 3.586618404503656*^9}, {3.586625827521701*^9, 
   3.586625894694992*^9}, 3.586626021911138*^9, {3.5866263635735207`*^9, 
   3.586626389902995*^9}, 3.586626709921781*^9, {3.586626798887061*^9, 
   3.5866268369863653`*^9}, {3.586626891797583*^9, 3.586626917171445*^9}, {
   3.5866270996985207`*^9, 3.586627118100954*^9}, {3.5866273194125*^9, 
   3.586627358195203*^9}, {3.586627394987146*^9, 3.586627479480372*^9}, 
   3.586628666092554*^9, 3.586629551066885*^9, {3.586817665421606*^9, 
   3.586817674376751*^9}, 3.608762728433378*^9, {3.6087628197018423`*^9, 
   3.60876299778749*^9}}]
}, Open  ]]
},
WindowSize->{1252, 771},
WindowMargins->{{-3, Automatic}, {Automatic, 0}},
ShowSelection->True,
Magnification:>1.5 Inherited,
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 20, \
2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 24705, 474, 2581, "Input"],
Cell[CellGroupData[{
Cell[25309, 500, 307, 6, 30, "Print"],
Cell[25619, 508, 309, 6, 30, "Print"],
Cell[25931, 516, 309, 6, 30, "Print"],
Cell[26243, 524, 306, 6, 30, "Print"],
Cell[26552, 532, 308, 6, 30, "Print"],
Cell[26863, 540, 313, 6, 30, "Print"],
Cell[27179, 548, 311, 6, 30, "Print"],
Cell[27493, 556, 313, 6, 30, "Print"],
Cell[27809, 564, 312, 6, 30, "Print"],
Cell[28124, 572, 312, 6, 30, "Print"],
Cell[28439, 580, 312, 6, 30, "Print"],
Cell[28754, 588, 310, 6, 30, "Print"],
Cell[29067, 596, 315, 6, 30, "Print"],
Cell[29385, 604, 314, 6, 30, "Print"],
Cell[29702, 612, 314, 6, 30, "Print"],
Cell[30019, 620, 314, 6, 30, "Print"],
Cell[30336, 628, 319, 6, 30, "Print"],
Cell[30658, 636, 312, 6, 30, "Print"],
Cell[30973, 644, 314, 6, 30, "Print"],
Cell[31290, 652, 312, 6, 30, "Print"],
Cell[31605, 660, 315, 6, 30, "Print"],
Cell[31923, 668, 315, 6, 30, "Print"],
Cell[32241, 676, 314, 6, 30, "Print"],
Cell[32558, 684, 314, 6, 30, "Print"],
Cell[32875, 692, 317, 6, 30, "Print"],
Cell[33195, 700, 317, 6, 30, "Print"],
Cell[33515, 708, 312, 6, 30, "Print"],
Cell[33830, 716, 257, 5, 30, "Print"]
}, Open  ]],
Cell[34102, 724, 2024, 31, 77, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)