tests.nb

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

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

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    318652,       7155]
NotebookOptionsPosition[    312767,       6958]
NotebookOutlinePosition[    313124,       6974]
CellTagsIndexPosition[    313081,       6971]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"basis", " ", "functions"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"d", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"w", "[", "i_", "]"}], " ", ":=", " ", 
     RowBox[{
      RowBox[{"2", "*", "i"}], "+", " ", "d"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.659733009936635*^9, 3.6597330795632963`*^9}, {
   3.659733551441745*^9, 3.659733552056014*^9}, {3.659733605467832*^9, 
   3.6597336066586723`*^9}, {3.659734759782671*^9, 3.659734766277766*^9}, 
   3.659734798016087*^9, {3.6597348607895813`*^9, 3.659734885422535*^9}, {
   3.659734949428515*^9, 3.659734951137322*^9}, {3.659734996915902*^9, 
   3.659734997595039*^9}, 3.6597355125192213`*^9, {3.6597518051420383`*^9, 
   3.6597518086774683`*^9}, {3.659820414728767*^9, 3.659820425214314*^9}, 
   3.6598204930578957`*^9, {3.6653743250706453`*^9, 3.665374330540893*^9}, 
   3.6653747697405243`*^9, 3.6653749537847843`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"factor", "[", "j_", "]"}], ":=", " ", 
   RowBox[{"2.0", "*", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"j", "!"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"j", "+", "d", "-", "1"}], ")"}], "!"}], ")"}]}], "]"}], 
     "/", 
     RowBox[{"Gamma", "[", 
      RowBox[{"j", "+", 
       RowBox[{"d", "/", "2"}]}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.659751284579221*^9, {3.659751818294306*^9, 3.659751826942325*^9}, {
   3.6598204418244753`*^9, 3.6598204605758667`*^9}, 3.659820498922172*^9, 
   3.660325409298135*^9, {3.665374133346945*^9, 3.665374134849626*^9}, {
   3.6653742276910477`*^9, 3.665374285984441*^9}, {3.6653743377335577`*^9, 
   3.665374347797333*^9}, {3.665374395590878*^9, 3.6653744233192387`*^9}, {
   3.665374853764285*^9, 3.665374866626739*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"e", "[", 
    RowBox[{"n_", ",", "x_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"factor", "[", "n", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Cos", "[", "x", "]"}], ")"}], "^", "d"}], ")"}], "*", 
    RowBox[{"JacobiP", "[", 
     RowBox[{"n", ",", 
      RowBox[{
       RowBox[{"d", "/", "2"}], " ", "-", "1"}], ",", 
      RowBox[{"d", "/", "2"}], ",", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", "*", "x"}], "]"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.659735461635359*^9, 3.659735465688373*^9}, 
   3.6597356096876183`*^9, {3.659751300396041*^9, 3.659751315452661*^9}, {
   3.659751852567997*^9, 3.6597518678321867`*^9}, {3.659820466465827*^9, 
   3.659820503858714*^9}, {3.665374874406376*^9, 3.665374876357861*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"eprime", "[", 
    RowBox[{"n_", ",", "x_"}], "]"}], ":=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"e", "[", 
      RowBox[{"n", ",", "x"}], "]"}], ",", "x"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.659820527430344*^9, 3.659820556579792*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"mu", "[", "x_", "]"}], ":=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Tan", "[", "x", "]"}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"d", "-", "1"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.659735646270191*^9, {3.6597518889862547`*^9, 3.659751893705254*^9}, {
   3.659820584982349*^9, 3.659820594318115*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nu", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], "*", 
      RowBox[{"Cos", "[", "x", "]"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Tan", "[", "x", "]"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"d", "-", "1"}], ")"}]}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.659751897337178*^9, 3.659751901257887*^9}, {
  3.659820710722468*^9, 3.659820712482078*^9}, {3.659821200768237*^9, 
  3.659821200838962*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "primary", " ", "functions", " ", "in", " ", "terms", " ", "of", " ", 
   "integrals"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.659735833365287*^9, 3.659735846444914*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"X", "[", 
    RowBox[{"i_", ",", "j_", ",", "k_", ",", "l_"}], "]"}], " ", ":=", " ", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"mu", "[", "x", "]"}], "*", 
      RowBox[{"nu", "[", "x", "]"}], "*", 
      RowBox[{"eprime", "[", 
       RowBox[{"i", ",", "x"}], "]"}], "*", 
      RowBox[{"e", "[", 
       RowBox[{"j", ",", "x"}], "]"}], "*", 
      RowBox[{"e", "[", 
       RowBox[{"k", ",", "x"}], "]"}], "*", 
      RowBox[{"e", "[", 
       RowBox[{"l", ",", "x"}], "]"}], "*", 
      RowBox[{"mu", "[", "x", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"Pi", "/", "2"}]}], "}"}], ",", 
     RowBox[{"WorkingPrecision", "\[Rule]", "10"}], ",", " ", 
     RowBox[{"PrecisionGoal", "\[Rule]", "10"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.659734266495659*^9, 3.659734278494687*^9}, {
   3.6597343145807457`*^9, 3.659734342269703*^9}, {3.65973443089958*^9, 
   3.659734520258059*^9}, {3.659734553460243*^9, 3.659734629512497*^9}, {
   3.6597510732572803`*^9, 3.659751077742663*^9}, {3.6597521442341948`*^9, 
   3.65975217905002*^9}, {3.659820790255575*^9, 3.6598208543370857`*^9}, 
   3.659820933222033*^9, {3.659821926879737*^9, 3.6598219304328413`*^9}, {
   3.6598223988849897`*^9, 3.659822412995535*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Y", "[", 
    RowBox[{"i_", ",", "j_", ",", "k_", ",", "l_"}], "]"}], ":=", " ", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"mu", "[", "x", "]"}], "*", 
      RowBox[{"nu", "[", "x", "]"}], "*", 
      RowBox[{"mu", "[", "x", "]"}], "*", 
      RowBox[{"eprime", "[", 
       RowBox[{"i", ",", "x"}], "]"}], "*", 
      RowBox[{"e", "[", 
       RowBox[{"j", ",", "x"}], "]"}], "*", 
      RowBox[{"eprime", "[", 
       RowBox[{"k", ",", "x"}], "]"}], "*", 
      RowBox[{"eprime", "[", 
       RowBox[{"l", ",", "x"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"Pi", "/", "2"}]}], "}"}], ",", 
     RowBox[{"WorkingPrecision", "\[Rule]", "10"}], ",", " ", 
     RowBox[{"PrecisionGoal", "\[Rule]", "10"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.659748139589551*^9, 3.659748358286016*^9}, {
  3.6597508324118013`*^9, 3.6597508546349373`*^9}, {3.659750919828311*^9, 
  3.659750933772719*^9}, {3.659752194229376*^9, 3.659752235634468*^9}, {
  3.6598208641863422`*^9, 3.65982086574522*^9}, {3.659820974575227*^9, 
  3.659821042328691*^9}, {3.6598219153841057`*^9, 3.659821920176366*^9}, {
  3.659822419975161*^9, 3.659822440708557*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"W00", "[", 
    RowBox[{"i_", ",", "j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"e", "[", 
       RowBox[{"i", ",", "x"}], "]"}], "*", 
      RowBox[{"e", "[", 
       RowBox[{"j", ",", "x"}], "]"}], "*", 
      RowBox[{"mu", "[", "x", "]"}], "*", 
      RowBox[{"nu", "[", "x", "]"}], "*", 
      RowBox[{"e", "[", 
       RowBox[{"k", ",", "y"}], "]"}], "*", 
      RowBox[{"e", "[", 
       RowBox[{"l", ",", "y"}], "]"}], "*", 
      RowBox[{"mu", "[", "y", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"Pi", "/", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", "x"}], "}"}], ",", 
     RowBox[{"WorkingPrecision", "\[Rule]", "10"}], ",", " ", 
     RowBox[{"PrecisionGoal", "\[Rule]", "10"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6597485423349257`*^9, 3.65974857723499*^9}, {
  3.659748654203566*^9, 3.659748801147546*^9}, {3.659752305819807*^9, 
  3.659752342509035*^9}, {3.659821077251896*^9, 3.659821184886552*^9}, {
  3.659821268204308*^9, 3.6598212741625643`*^9}, {3.659821938648073*^9, 
  3.659821942032674*^9}, {3.6598224505659227`*^9, 3.659822485169454*^9}, {
  3.6598247202025223`*^9, 3.659824751315363*^9}, {3.659824812791368*^9, 
  3.6598248181276627`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"W10", "[", 
    RowBox[{"i_", ",", "j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"eprime", "[", 
       RowBox[{"i", ",", "x"}], "]"}], "*", 
      RowBox[{"eprime", "[", 
       RowBox[{"j", ",", "x"}], "]"}], "*", 
      RowBox[{"mu", "[", "x", "]"}], "*", 
      RowBox[{"nu", "[", "x", "]"}], "*", 
      RowBox[{"e", "[", 
       RowBox[{"k", ",", "y"}], "]"}], "*", 
      RowBox[{"e", "[", 
       RowBox[{"l", ",", "y"}], "]"}], "*", 
      RowBox[{"mu", "[", "y", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"Pi", "/", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", "x"}], "}"}], ",", 
     RowBox[{"WorkingPrecision", "\[Rule]", "10"}], ",", " ", 
     RowBox[{"PrecisionGoal", "\[Rule]", "10"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.659748810492465*^9, 3.659748973485037*^9}, {
  3.659752354052973*^9, 3.6597524120138206`*^9}, {3.659821208441206*^9, 
  3.659821260259482*^9}, {3.659821385256576*^9, 3.659821416056592*^9}, {
  3.659821948328168*^9, 3.659821950945023*^9}, {3.659822494161075*^9, 
  3.659822502890189*^9}, {3.659824892618376*^9, 3.659824939762013*^9}, {
  3.66537606505366*^9, 3.665376071357429*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"i_", ",", "j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
   RowBox[{"N", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"w", "[", "i", "]"}], "+", 
             RowBox[{"w", "[", "j", "]"}]}], ")"}]}], " ", "+", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"w", "[", "i", "]"}], "-", 
             RowBox[{"w", "[", "k", "]"}]}], ")"}]}], " ", "+", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"w", "[", "j", "]"}], "-", 
             RowBox[{"w", "[", "k", "]"}]}], ")"}]}]}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"w", "[", "i", "]"}], "*", 
           RowBox[{"w", "[", "j", "]"}], "*", 
           RowBox[{"w", "[", "k", "]"}], "*", 
           RowBox[{"X", "[", 
            RowBox[{"l", ",", "i", ",", "j", ",", "k"}], "]"}]}], " ", "-", 
          " ", 
          RowBox[{
           RowBox[{"w", "[", "l", "]"}], "*", 
           RowBox[{"Y", "[", 
            RowBox[{"i", ",", "l", ",", "j", ",", "k"}], "]"}]}]}], ")"}], 
        "/", "4"}]}], " ", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"w", "[", "i", "]"}], "+", 
            RowBox[{"w", "[", "j", "]"}]}], ")"}]}], " ", "+", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"w", "[", "i", "]"}], "-", 
            RowBox[{"w", "[", "k", "]"}]}], ")"}]}], " ", "-", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"w", "[", "j", "]"}], "-", 
            RowBox[{"w", "[", "k", "]"}]}], ")"}]}]}], ")"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"w", "[", "j", "]"}], "*", 
           RowBox[{"w", "[", "k", "]"}], "*", 
           RowBox[{"w", "[", "l", "]"}], "*", 
           RowBox[{"X", "[", 
            RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "]"}]}], " ", "-", 
          " ", 
          RowBox[{
           RowBox[{"w", "[", "i", "]"}], "*", 
           RowBox[{"Y", "[", 
            RowBox[{"j", ",", "i", ",", "k", ",", "l"}], "]"}]}]}], ")"}], 
        "/", "4"}]}], " ", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"w", "[", "i", "]"}], "+", 
            RowBox[{"w", "[", "j", "]"}]}], ")"}]}], " ", "-", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"w", "[", "i", "]"}], "-", 
            RowBox[{"w", "[", "k", "]"}]}], ")"}]}], " ", "+", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"w", "[", "j", "]"}], "-", 
            RowBox[{"w", "[", "k", "]"}]}], ")"}]}]}], ")"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"w", "[", "i", "]"}], "*", 
           RowBox[{"w", "[", "k", "]"}], "*", 
           RowBox[{"w", "[", "l", "]"}], "*", 
           RowBox[{"X", "[", 
            RowBox[{"j", ",", "i", ",", "k", ",", "l"}], "]"}]}], " ", "-", 
          " ", 
          RowBox[{
           RowBox[{"w", "[", "j", "]"}], "*", 
           RowBox[{"Y", "[", 
            RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "]"}]}]}], ")"}], 
        "/", "4"}]}], " ", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"w", "[", "i", "]"}], "+", 
            RowBox[{"w", "[", "j", "]"}]}], ")"}]}], "-", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"w", "[", "i", "]"}], "-", 
            RowBox[{"w", "[", "k", "]"}]}], ")"}]}], " ", "-", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"w", "[", "j", "]"}], "-", 
            RowBox[{"w", "[", "k", "]"}]}], ")"}]}]}], ")"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"w", "[", "i", "]"}], "*", 
           RowBox[{"w", "[", "j", "]"}], "*", 
           RowBox[{"w", "[", "l", "]"}], "*", 
           RowBox[{"X", "[", 
            RowBox[{"k", ",", "i", ",", "j", ",", "l"}], "]"}]}], " ", "-", 
          " ", 
          RowBox[{
           RowBox[{"w", "[", "k", "]"}], "*", 
           RowBox[{"Y", "[", 
            RowBox[{"i", ",", "k", ",", "j", ",", "l"}], "]"}]}]}], ")"}], 
        "/", "4"}]}]}], ",", "8"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.659749075588031*^9, 3.659749317481444*^9}, {
   3.659749376047001*^9, 3.6597495957483473`*^9}, {3.659749666306781*^9, 
   3.659749695291209*^9}, 3.6597497394939203`*^9, {3.659752435400494*^9, 
   3.659752487906343*^9}, 3.6598214699251013`*^9, {3.659821963459115*^9, 
   3.659821972905981*^9}, {3.665374917777351*^9, 3.6653749307936487`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"V", "[", 
    RowBox[{"i_", ",", "j_"}], "]"}], " ", ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"e", "[", 
       RowBox[{"i", ",", "x"}], "]"}], "*", 
      RowBox[{"e", "[", 
       RowBox[{"j", ",", "x"}], "]"}], "*", 
      RowBox[{"mu", "[", "x", "]"}], "*", 
      RowBox[{"nu", "[", "x", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.665373161148872*^9, 3.6653731792511053`*^9}, {
   3.665373266803207*^9, 3.6653733170133257`*^9}, 3.665374934306364*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"eprime", "[", 
       RowBox[{"i", ",", "x"}], "]"}], "*", 
      RowBox[{"eprime", "[", 
       RowBox[{"j", ",", "x"}], "]"}], "*", 
      RowBox[{"mu", "[", "x", "]"}], "*", 
      RowBox[{"nu", "[", "x", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6653733220035343`*^9, 3.665373378887239*^9}, 
   3.665374936936633*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"R", "[", 
    RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"N", "[", 
    RowBox[{
     RowBox[{"0.5", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"w", "[", "i", "]"}], "^", "2"}], " ", "+", " ", 
          RowBox[{
           RowBox[{"w", "[", "j", "]"}], "^", "2"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"w", "[", "j", "]"}], "^", "2"}], " ", "-", " ", 
          RowBox[{
           RowBox[{"w", "[", "i", "]"}], "^", "2"}]}], ")"}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"X", "[", 
          RowBox[{"i", ",", "j", ",", "j", ",", "i"}], "]"}], "*", 
         RowBox[{
          RowBox[{"w", "[", "j", "]"}], "^", "2"}]}], " ", "-", " ", 
        RowBox[{
         RowBox[{"X", "[", 
          RowBox[{"j", ",", "i", ",", "i", ",", "j"}], "]"}], "*", 
         RowBox[{
          RowBox[{"w", "[", "i", "]"}], "^", "2"}]}]}], ")"}]}], " ", "+", 
     " ", 
     RowBox[{"2.0", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Y", "[", 
            RowBox[{"i", ",", "j", ",", "i", ",", "j"}], "]"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"w", "[", "j", "]"}], "^", "2"}], ")"}]}], " ", "-", " ", 
          RowBox[{
           RowBox[{"Y", "[", 
            RowBox[{"j", ",", "i", ",", "j", ",", "i"}], "]"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"w", "[", "i", "]"}], "^", "2"}], ")"}]}]}], ")"}], "/", 
        
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"w", "[", "j", "]"}], "^", "2"}], " ", "-", " ", 
          RowBox[{
           RowBox[{"w", "[", "i", "]"}], "^", "2"}]}], ")"}]}], ")"}]}], " ", 
     "+", " ", 
     RowBox[{"0.5", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Y", "[", 
         RowBox[{"i", ",", "i", ",", "j", ",", "j"}], "]"}], "+", 
        RowBox[{"Y", "[", 
         RowBox[{"j", ",", "j", ",", "i", ",", "i"}], "]"}]}], ")"}]}], " ", 
     "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"w", "[", "i", "]"}], "^", "2"}], ")"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"w", "[", "j", "]"}], "^", "2"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"w", "[", "j", "]"}], "^", "2"}], " ", "-", " ", 
           RowBox[{
            RowBox[{"w", "[", "i", "]"}], "^", "2"}]}], ")"}]}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"X", "[", 
         RowBox[{"i", ",", "j", ",", "j", ",", "i"}], "]"}], " ", "-", " ", 
        RowBox[{"X", "[", 
         RowBox[{"j", ",", "i", ",", "j", ",", "i"}], "]"}]}], ")"}]}], " ", 
     "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"w", "[", "i", "]"}], "*", 
          RowBox[{"w", "[", "j", "]"}]}], ")"}], "^", "2"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"W00", "[", 
         RowBox[{"j", ",", "j", ",", "i", ",", "i"}], "]"}], "+", 
        RowBox[{"W00", "[", 
         RowBox[{"i", ",", "i", ",", "j", ",", "j"}], "]"}]}], ")"}]}], " ", 
     "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"w", "[", "i", "]"}], "^", "2"}], ")"}], "*", 
      RowBox[{"W10", "[", 
       RowBox[{"j", ",", "j", ",", "i", ",", "i"}], "]"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"w", "[", "j", "]"}], "^", "2"}], ")"}], "*", 
      RowBox[{"W10", "[", 
       RowBox[{"i", ",", "i", ",", "j", ",", "j"}], "]"}]}], " ", "-", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"w", "[", "j", "]"}], "^", "2"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"i", ",", "i"}], "]"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"w", "[", "i", "]"}], "^", "2"}], ")"}], "*", 
         RowBox[{"V", "[", 
          RowBox[{"i", ",", "i"}], "]"}]}]}], ")"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6653733941089573`*^9, 3.665373533134158*^9}, {
   3.665373601553833*^9, 3.665373704707508*^9}, {3.6653737744529257`*^9, 
   3.665373993924806*^9}, 3.665374942521461*^9, {3.665375127233501*^9, 
   3.665375131999917*^9}, {3.665375471219191*^9, 3.665375555110924*^9}, {
   3.66537572936189*^9, 3.665375802344078*^9}, {3.665375921959079*^9, 
   3.665375932366995*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"0.5", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"w", "[", "i", "]"}], "^", "2"}], ")"}], "*", 
     RowBox[{"X", "[", 
      RowBox[{"i", ",", "i", ",", "i", ",", "i"}], "]"}]}], " ", "+", " ", 
    RowBox[{"1.5", "*", 
     RowBox[{"Y", "[", 
      RowBox[{"i", ",", "i", ",", "i", ",", "i"}], "]"}]}], " ", "+", " ", 
    "2", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"w", "[", "i", "]"}], "^", "4"}], ")"}], "*", 
     RowBox[{"W00", "[", 
      RowBox[{"i", ",", "i", ",", "i", ",", "i"}], "]"}]}], " ", "+", " ", 
    RowBox[{"2", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"w", "[", "i", "]"}], "^", "2"}], ")"}], "*", 
     RowBox[{"W10", "[", 
      RowBox[{"i", ",", "i", ",", "i", ",", "i"}], "]"}]}], "-", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"w", "[", "j", "]"}], "^", "2"}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"i", ",", "i"}], "]"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"w", "[", "i", "]"}], "^", "2"}], ")"}], "*", 
        RowBox[{"V", "[", 
         RowBox[{"i", ",", "i"}], "]"}]}]}], ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.665374003593206*^9, 3.665374114883559*^9}, 
   3.6653749467688923`*^9, {3.66543709584166*^9, 3.665437148176079*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"X", "[", 
  RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.6653744993266993`*^9, 3.665374503921576*^9}}],

Cell[BoxData[
 RowBox[{"-", "2.14859173174058749491680338247343251242`10."}]], "Output",
 CellChangeTimes->{3.6653745045752087`*^9, 3.665374966367569*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S", "[", 
  RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.66537454297689*^9, 3.665374546044177*^9}, {
  3.66537497563451*^9, 3.6653749888492947`*^9}}],

Cell[BoxData["7.95774715459477228250112823372676325552`8."], "Output",
 CellChangeTimes->{3.66537454754799*^9, 3.665374990285351*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R", "[", 
  RowBox[{"0", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.6653749959519567`*^9, 3.6653750054256563`*^9}, {
  3.665444270609437*^9, 3.665444270952835*^9}}],

Cell[BoxData["Indeterminate"], "Output",
 CellChangeTimes->{3.6653750400234013`*^9, 3.665375388196908*^9, 
  3.6653756037748938`*^9, 3.665375840543007*^9, 3.665376134737546*^9, 
  3.665444295281426*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"file", " ", "=", " ", 
  RowBox[{"FileNameJoin", "[", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Dropbox\>\"", ",", "\"\<AdS_CFT\>\"", ",", 
     "\"\<MasslessScalarRecursion\>\"", ",", "\"\<Mathematica_R.dat\>\""}], 
    "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665441701860723*^9, 3.6654417053535748`*^9}, {
  3.665451968653933*^9, 3.6654519888428164`*^9}}],

Cell[BoxData["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat\"\
\>"], "Output",
 CellChangeTimes->{3.665451993587956*^9, 3.66545223559508*^9, 
  3.6654527286479597`*^9, 3.6654533462265263`*^9, 3.6656226991594543`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"str", "=", 
  RowBox[{"OpenAppend", "[", "file", "]"}]}]], "Input",
 CellChangeTimes->{{3.665452009101098*^9, 3.665452013915257*^9}, {
  3.665452102767535*^9, 3.665452122984887*^9}, {3.665452214804596*^9, 
  3.665452216707851*^9}, {3.6654529043819513`*^9, 3.665452907660005*^9}, {
  3.665534668641506*^9, 3.665534670602607*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_R.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_R.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.66545201503706*^9, {3.665452107777399*^9, 3.665452123887628*^9}, 
   3.665452251844459*^9, 3.665452550487589*^9, 3.665452732039525*^9, 
   3.665452919641604*^9, 3.665453120812155*^9, 3.6654533488378887`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "6"}], ",", 
       RowBox[{"j", "<", "11"}], ",", 
       RowBox[{"j", "++"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "\[NotEqual]", "j"}], ",", 
         RowBox[{
          RowBox[{"val", "=", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"i", ",", "j", ",", 
              RowBox[{"R", "[", 
               RowBox[{"i", ",", "j"}], "]"}]}], "}"}], "}"}]}], ";", " ", 
          RowBox[{"Export", "[", 
           RowBox[{"str", ",", "val", ",", "\"\<TSV\>\""}], "]"}], ";", 
          RowBox[{"WriteLine", "[", 
           RowBox[{"str", ",", "\"\<\>\""}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"val", "=", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"i", ",", "j", ",", "None"}], "}"}], "}"}]}], ";", " ", 
          RowBox[{"Export", "[", 
           RowBox[{"str", ",", "val", ",", "\"\<TSV\>\""}], "]"}], ";", 
          RowBox[{"WriteLine", "[", 
           RowBox[{"str", ",", "\"\<\>\""}], "]"}]}]}], "]"}]}], "]"}]}], 
    "]"}], ";"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.665444335808514*^9, 3.665444512139496*^9}, {
   3.665444629341353*^9, 3.6654446569649487`*^9}, {3.665444778277522*^9, 
   3.6654449033494473`*^9}, {3.665445028889423*^9, 3.6654450323761253`*^9}, {
   3.665445121630577*^9, 3.665445141004383*^9}, {3.6654454246613617`*^9, 
   3.665445427004078*^9}, {3.665445720291044*^9, 3.665445745706723*^9}, {
   3.6654458474082747`*^9, 3.665445857495028*^9}, {3.6654507373346767`*^9, 
   3.6654507391570997`*^9}, {3.665451057959944*^9, 3.665451065830813*^9}, {
   3.66545148991066*^9, 3.665451735581051*^9}, {3.665452027526534*^9, 
   3.6654520440688543`*^9}, {3.665452133641048*^9, 3.665452174688871*^9}, {
   3.665452407002945*^9, 3.665452435785757*^9}, {3.665452467646521*^9, 
   3.665452469541288*^9}, {3.665452527772376*^9, 3.665452528250873*^9}, 
   3.665452561654417*^9, {3.6654526345092983`*^9, 3.665452637532447*^9}, {
   3.665452680361665*^9, 3.665452750586615*^9}, {3.665453082410386*^9, 
   3.665453087288011*^9}, {3.665534674930848*^9, 3.665534725483027*^9}, {
   3.665534917121159*^9, 3.6655349470164957`*^9}, {3.6655386504293213`*^9, 
   3.665538659797942*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Close", "[", "file", "]"}]], "Input",
 CellChangeTimes->{{3.665446044726717*^9, 3.6654460526838503`*^9}, {
  3.665446163357376*^9, 3.665446174079365*^9}, {3.665446256178897*^9, 
  3.6654462897705097`*^9}, {3.6654463896140537`*^9, 3.665446455909239*^9}, {
  3.665446516429957*^9, 3.665446559092882*^9}, {3.6654465979647617`*^9, 
  3.665446600844973*^9}, {3.6654466340327578`*^9, 3.6654467561099854`*^9}, {
  3.665446798887478*^9, 3.665446801445826*^9}, {3.6654468708963623`*^9, 
  3.665446958401897*^9}, {3.665449078380653*^9, 3.6654492219950113`*^9}, {
  3.665449260950183*^9, 3.665449286893519*^9}, {3.665449322958499*^9, 
  3.665449359669136*^9}, {3.6654507562076597`*^9, 3.6654508156342907`*^9}, {
  3.6654510068751698`*^9, 3.665451032677307*^9}, {3.665452335655122*^9, 
  3.665452349821981*^9}, {3.665539103053164*^9, 3.6655391033395443`*^9}}],

Cell[BoxData["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat\"\
\>"], "Output",
 CellChangeTimes->{{3.665446890776681*^9, 3.665446959474367*^9}, 
   3.665449085701272*^9, {3.665449127576906*^9, 3.665449151241005*^9}, {
   3.6654492100356607`*^9, 3.665449223455962*^9}, {3.665449277673912*^9, 
   3.66544928789112*^9}, {3.665449326301463*^9, 3.6654493611125193`*^9}, 
   3.6654507736830273`*^9, 3.6654508171414843`*^9, 3.6654510344062023`*^9, 
   3.665452383005292*^9, 3.665452623227449*^9, 3.6654528699958477`*^9, 
   3.6654530228911963`*^9, 3.665453333110469*^9, 3.6654605300510263`*^9, {
   3.665539098885906*^9, 3.6655391039227*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FilePrint", "[", "file", "]"}]], "Input",
 CellChangeTimes->{{3.665445323732609*^9, 3.6654453243384647`*^9}, {
  3.665452221300969*^9, 3.665452223731591*^9}, {3.6654523566389513`*^9, 
  3.665452361102345*^9}}],

Cell["\<\
0\t0\tNone
0\t1\t-126.5281797580566
0\t2\t-348.2628464736666\
\>", "Print",
 CellChangeTimes->{3.6654523856560497`*^9, 3.665452625194624*^9, 
  3.6654528724946327`*^9, 3.665453024769875*^9, 3.665453336766634*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"file2", "=", " ", 
  RowBox[{"FileNameJoin", "[", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Dropbox\>\"", ",", "\"\<AdS_CFT\>\"", ",", 
     "\"\<MasslessScalarRecursion\>\"", ",", "\"\<Mathematica_T.dat\>\""}], 
    "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665451364713716*^9, 3.665451396384593*^9}, {
  3.6654524753346243`*^9, 3.66545248066862*^9}, {3.66545325579397*^9, 
  3.665453290604479*^9}}],

Cell[BoxData["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_T.dat\"\
\>"], "Output",
 CellChangeTimes->{3.665451397327857*^9, 3.6654524821487417`*^9, 
  3.665533756775318*^9, 3.665535160414998*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"str2", "=", 
  RowBox[{"OpenAppend", "[", "file2", "]"}]}]], "Input",
 CellChangeTimes->{{3.665452484485364*^9, 3.665452485181093*^9}, {
   3.66545335926046*^9, 3.66545336824578*^9}, 3.665453430479372*^9, {
   3.665534454684086*^9, 3.665534456762401*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_T.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_T.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_T.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_T.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.66553376110249*^9, 3.6655350907800217`*^9, 
  3.665535162853053*^9, 3.6655352022990932`*^9, 3.665538376524375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Close", "[", "file2", "]"}]], "Input",
 CellChangeTimes->{{3.665535170165654*^9, 3.66553519677446*^9}}],

Cell[BoxData["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_T.dat\"\
\>"], "Output",
 CellChangeTimes->{{3.6655351754976597`*^9, 3.665535197380529*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "5"}], ",", 
    RowBox[{"i", "<", "11"}], ",", 
    RowBox[{"i", "++"}], ",", 
    RowBox[{
     RowBox[{"val", "=", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"T", "[", "i", "]"}]}], "}"}], "}"}]}], ";", 
     RowBox[{"Export", "[", 
      RowBox[{"str2", ",", "val", ",", "\"\<TSV\>\""}], "]"}], ";", 
     RowBox[{"WriteLine", "[", 
      RowBox[{"str2", ",", "\"\<\>\""}], "]"}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.665453372276973*^9, 3.665453472610717*^9}, {
  3.665534462732258*^9, 3.6655344628904953`*^9}, {3.665534642281824*^9, 
  3.665534649431704*^9}, {3.665534738179742*^9, 3.665534777467092*^9}, {
  3.665534814518197*^9, 3.665534849646781*^9}, {3.6655385944757023`*^9, 
  3.665538600225733*^9}},
 NumberMarks->False],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParallelEvaluate", "[", "$MachineName", "]"}]], "Input",
 CellChangeTimes->{{3.665534410037372*^9, 3.6655344239941683`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Brads-MacBook-Pro\"\>", ",", "\<\"Brads-MacBook-Pro\"\>", 
   ",", "\<\"Brads-MacBook-Pro\"\>", ",", "\<\"Brads-MacBook-Pro\"\>", 
   ",", "\<\"Brads-MacBook-Pro\"\>", ",", "\<\"Brads-MacBook-Pro\"\>", 
   ",", "\<\"Brads-MacBook-Pro\"\>", ",", "\<\"Brads-MacBook-Pro\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.66553446952318*^9, 3.665557298087022*^9, 
  3.665557368478654*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DistributeDefinitions", "[", 
  RowBox[{"str", ",", "str2", ",", "file", ",", "file2", ",", 
   RowBox[{"R", "[", 
    RowBox[{"i", ",", "j"}], "]"}], ",", 
   RowBox[{"T", "[", "i", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6655345634427223`*^9, 3.665534608951823*^9}, 
   3.665534986810047*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox["R",
    HoldForm], ",", 
   TagBox["w",
    HoldForm], ",", 
   TagBox["d",
    HoldForm], ",", 
   TagBox["X",
    HoldForm], ",", 
   TagBox["mu",
    HoldForm], ",", 
   TagBox["nu",
    HoldForm], ",", 
   TagBox["eprime",
    HoldForm], ",", 
   TagBox["e",
    HoldForm], ",", 
   TagBox["factor",
    HoldForm], ",", 
   TagBox["Y",
    HoldForm], ",", 
   TagBox["W00",
    HoldForm], ",", 
   TagBox["W10",
    HoldForm], ",", 
   TagBox["A",
    HoldForm], ",", 
   TagBox["V",
    HoldForm], ",", 
   TagBox["T",
    HoldForm]}], "}"}]], "Output",
 CellChangeTimes->{3.665534988681295*^9, 3.665557388323464*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ParallelMap", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"T", "[", "#", "]"}], "&"}], ",", 
   RowBox[{"Range", "[", 
    RowBox[{"5", ",", "10"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6655355114252777`*^9, 3.665535518320045*^9}, {
  3.665536232252318*^9, 3.6655362779324913`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tdata", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"5", ",", 
      RowBox[{"-", "115964.148641938`"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"6", ",", 
      RowBox[{"-", "153625.14010295828`"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"7", ",", 
      RowBox[{"-", "192885.32095674874`"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"8", ",", 
      RowBox[{"-", "231501.06420517442`"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"9", ",", 
      RowBox[{"-", "266871.5793825133`"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"10", ",", 
      RowBox[{"-", "296045.3993495378`"}]}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.665538220184321*^9, 3.6655383364717493`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"5", ",", 
     RowBox[{"-", "115964.148641938`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", 
     RowBox[{"-", "153625.14010295828`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", 
     RowBox[{"-", "192885.32095674874`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", 
     RowBox[{"-", "231501.06420517442`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", 
     RowBox[{"-", "266871.5793825133`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", 
     RowBox[{"-", "296045.3993495378`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665538337257798*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"str2", ",", "Tdata", ",", "\"\<TSV\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.6655383838268547`*^9, 3.665538401955616*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_T.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_T.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_T.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_T.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.665538402795143*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Close", "[", "str2", "]"}]], "Input",
 CellChangeTimes->{{3.6655384062881613`*^9, 3.665538408490363*^9}}],

Cell[BoxData["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_T.dat\"\
\>"], "Output",
 CellChangeTimes->{3.665538409065933*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"str", "=", 
  RowBox[{"OpenAppend", "[", "file", "]"}]}]], "Input",
 CellChangeTimes->{{3.665539077522675*^9, 3.665539085602386*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_R.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_R.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.6655390881476994`*^9, 3.6655391103973513`*^9}, 
   3.665541201694133*^9, 3.665549482364931*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R2", "=", 
  RowBox[{"ParallelMap", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"R", "[", 
      RowBox[{"2", ",", "#"}], "]"}], "&"}], ",", 
    RowBox[{"Range", "[", 
     RowBox[{"6", ",", "10"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665538469409664*^9, 3.665538471029771*^9}, {
  3.665538511351142*^9, 3.665538515902429*^9}, {3.665538563327853*^9, 
  3.665538564152212*^9}, {3.665538868589263*^9, 3.665538944477859*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "19675.337852129524`"}], ",", 
   RowBox[{"-", "25542.5975789202`"}], ",", 
   RowBox[{"-", "32111.619700396255`"}], ",", 
   RowBox[{"-", "39392.90078902761`"}], ",", 
   RowBox[{"-", "47391.59675161785`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665540694085918*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R3", " ", "=", " ", 
  RowBox[{"ParallelMap", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"R", "[", 
      RowBox[{"3", ",", "#"}], "]"}], "&"}], ",", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", "10"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665538954138548*^9, 3.66553898132686*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1669.2716105568334`"}], ",", 
   RowBox[{"-", "4197.938988207412`"}], ",", 
   RowBox[{"-", "6811.1790290664185`"}], ",", "Indeterminate", ",", 
   RowBox[{"-", "16210.121939840656`"}], ",", 
   RowBox[{"-", "26576.558035019112`"}], ",", 
   RowBox[{"-", "36944.079659127194`"}], ",", 
   RowBox[{"-", "48355.11927014043`"}], ",", 
   RowBox[{"-", "61017.31551714025`"}], ",", 
   RowBox[{"-", "74999.42981739821`"}], ",", 
   RowBox[{"-", "90330.67185319755`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665543743390765*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"R4", "=", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"R", "[", 
       RowBox[{"4", ",", "#"}], "]"}], "&"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "10"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6655389836755247`*^9, 3.665539010912258*^9}, 
   3.665549542777413*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R5", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"R", "[", 
       RowBox[{"5", ",", "#"}], "]"}], "&"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "10"}], "]"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665538355923678*^9, 3.665538360698448*^9}, {
  3.6655390190030317`*^9, 3.665539033624596*^9}, {3.665549927377101*^9, 
  3.665549931129527*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "4259.372176202228`"}], ",", 
   RowBox[{"-", "11185.843459434318`"}], ",", 
   RowBox[{"-", "21062.347817788595`"}], ",", 
   RowBox[{"-", "33022.85410096383`"}], ",", 
   RowBox[{"-", "42572.4118108213`"}], ",", "Indeterminate", ",", 
   RowBox[{"-", "77964.8909261201`"}], ",", 
   RowBox[{"-", "114784.5268158514`"}], ",", 
   RowBox[{"-", "149032.10220819412`"}], ",", 
   RowBox[{"-", "185251.05483108404`"}], ",", 
   RowBox[{"-", "224348.86267328536`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665556891242754*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R6", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"R", "[", 
       RowBox[{"6", ",", "#"}], "]"}], "&"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "10"}], "]"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665539036520989*^9, 3.665539038824195*^9}, {
  3.665549933194414*^9, 3.665549937393434*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "6057.429581770026`"}], ",", 
   RowBox[{"-", "16014.787278181437`"}], ",", 
   RowBox[{"-", "30447.83477789314`"}], ",", 
   RowBox[{"-", "48858.39643955407`"}], ",", 
   RowBox[{"-", "69682.988001854`"}], ",", 
   RowBox[{"-", "84916.77884037419`"}], ",", "Indeterminate", ",", 
   RowBox[{"-", "143642.59393765795`"}], ",", 
   RowBox[{"-", "204070.34713070848`"}], ",", 
   RowBox[{"-", "258706.23389928197`"}], ",", 
   RowBox[{"-", "315605.14346626215`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6655699325785503`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R7", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"R", "[", 
       RowBox[{"7", ",", "#"}], "]"}], "&"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "10"}], "]"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665539042865032*^9, 3.665539045497246*^9}, {
  3.6655499398655443`*^9, 3.6655499445296288`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "8209.661288540281`"}], ",", 
   RowBox[{"-", "21797.25404248685`"}], ",", 
   RowBox[{"-", "41641.902968795555`"}], ",", 
   RowBox[{"-", "67398.66576654886`"}], ",", 
   RowBox[{"-", "98226.63095797543`"}], ",", 
   RowBox[{"-", "131517.61070270327`"}], ",", 
   RowBox[{"-", "154032.22865554102`"}], ",", "Indeterminate", ",", 
   RowBox[{"-", "245143.55928590376`"}], ",", 
   RowBox[{"-", "338468.4042790476`"}], ",", 
   RowBox[{"-", "420775.59807199007`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665574686859028*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R8", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"R", "[", 
       RowBox[{"8", ",", "#"}], "]"}], "&"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "10"}], "]"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665539047737226*^9, 3.665539049953413*^9}, {
  3.665549947913822*^9, 3.665549951393845*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "10727.712206245533`"}], ",", 
   RowBox[{"-", "28567.816137102393`"}], ",", 
   RowBox[{"-", "54732.05390470697`"}], ",", 
   RowBox[{"-", "88954.83753947857`"}], ",", 
   RowBox[{"-", "130686.18511816076`"}], ",", 
   RowBox[{"-", "178591.7113683069`"}], ",", 
   RowBox[{"-", "228574.96561579514`"}], ",", 
   RowBox[{"-", "259948.78865938936`"}], ",", "Indeterminate", ",", 
   RowBox[{"-", "394203.19859488046`"}], ",", 
   RowBox[{"-", "531682.200073407`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665580076381403*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R9", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"R", "[", 
       RowBox[{"9", ",", "#"}], "]"}], "&"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "10"}], "]"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6655390518092546`*^9, 3.665539055177806*^9}, {
  3.665549953410037*^9, 3.66554995665009*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "13621.873728371687`"}], ",", 
   RowBox[{"-", "36356.12391905625`"}], ",", 
   RowBox[{"-", "69784.41252771899`"}], ",", 
   RowBox[{"-", "113687.63027641801`"}], ",", 
   RowBox[{"-", "167663.6109323534`"}], ",", 
   RowBox[{"-", "230874.37967667324`"}], ",", 
   RowBox[{"-", "301306.6215920129`"}], ",", 
   RowBox[{"-", "372822.5515351045`"}], ",", 
   RowBox[{"-", "414524.10172889224`"}], ",", "Indeterminate", ",", 
   RowBox[{"-", "604442.3265879529`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665586181538443*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R10", "=", 
  RowBox[{"Quiet", "[", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"R", "[", 
       RowBox[{"10", ",", "#"}], "]"}], "&"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "10"}], "]"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665539057545739*^9, 3.6655390606179733`*^9}, {
  3.665549960650185*^9, 3.665549964258391*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "16901.37815244467`"}], ",", 
   RowBox[{"-", "45188.38828733583`"}], ",", 
   RowBox[{"-", "86854.17081786897`"}], ",", 
   RowBox[{"-", "141708.96635213878`"}], ",", 
   RowBox[{"-", "209436.7375402321`"}], ",", 
   RowBox[{"-", "289445.6670120053`"}], ",", 
   RowBox[{"-", "380511.8432862122`"}], ",", 
   RowBox[{"-", "479717.46243734757`"}], ",", 
   RowBox[{"-", "578208.3132129232`"}], ",", 
   RowBox[{"-", "631501.2133930344`"}], ",", "Indeterminate"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.665592992518042*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R2vals", "=", 
  RowBox[{"Array", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "#", ",", 
       RowBox[{"R2", "[", 
        RowBox[{"[", 
         RowBox[{"(", 
          RowBox[{"#", "-", "5"}], ")"}], "]"}], "]"}]}], "}"}], "&"}], ",", 
    "5", ",", "6"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6655407119855347`*^9, 3.665540809733453*^9}, {
  3.6655408496769867`*^9, 3.66554088822755*^9}, {3.665540952398535*^9, 
  3.665540973000635*^9}, {3.665541063740312*^9, 3.665541172723145*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "6", ",", 
     RowBox[{"-", "19675.337852129524`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "7", ",", 
     RowBox[{"-", "25542.5975789202`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "8", ",", 
     RowBox[{"-", "32111.619700396255`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "9", ",", 
     RowBox[{"-", "39392.90078902761`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "10", ",", 
     RowBox[{"-", "47391.59675161785`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.665540889379414*^9, {3.665541115831115*^9, 3.6655411450800257`*^9}, 
   3.6655411751021233`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Export", "[", 
  RowBox[{"str", ",", "R2vals", ",", "\"\<TSV\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteLine", "[", 
  RowBox[{"str", ",", "\"\<\>\""}], "]"}]}], "Input",
 CellChangeTimes->{{3.665541181970613*^9, 3.665541194021105*^9}, {
  3.6655504928837013`*^9, 3.665550501978067*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_R.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_R.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.665541195086825*^9, 3.665541206898448*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rvals3", " ", "=", " ", 
  RowBox[{"Array", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", "#", ",", 
       RowBox[{"R3", "[", 
        RowBox[{"[", 
         RowBox[{"#", " ", "+", " ", "1"}], "]"}], "]"}]}], "}"}], "&"}], ",",
     "11", ",", "0"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6655416287051973`*^9, 3.665541687331999*^9}, {
  3.665542507823517*^9, 3.6655425131740913`*^9}, {3.6655493732561827`*^9, 
  3.665549374981879*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3", ",", "0", ",", 
     RowBox[{"-", "1669.2716105568334`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", 
     RowBox[{"-", "4197.938988207412`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", 
     RowBox[{"-", "6811.1790290664185`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", 
     RowBox[{"-", "16210.121939840656`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "5", ",", 
     RowBox[{"-", "26576.558035019112`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "6", ",", 
     RowBox[{"-", "36944.079659127194`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "7", ",", 
     RowBox[{"-", "48355.11927014043`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "8", ",", 
     RowBox[{"-", "61017.31551714025`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "9", ",", 
     RowBox[{"-", "74999.42981739821`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "10", ",", 
     RowBox[{"-", "90330.67185319755`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.665543743891988*^9, 3.665543744157548*^9}, 
   3.6655493824451933`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"str", ",", "Rvals3", ",", "\"\<TSV\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.665542440040688*^9, 3.665542464771688*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_R.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_R.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.665549464822207*^9, 3.6655494878206367`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R4vals", "=", " ", 
  RowBox[{"Array", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4", ",", "#", ",", 
       RowBox[{"R4", "[", 
        RowBox[{"[", 
         RowBox[{"#", "+", "1"}], "]"}], "]"}]}], "}"}], "&"}], ",", "11", 
    ",", "0"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665549709773932*^9, 3.6655497403034697`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"4", ",", "0", ",", 
     RowBox[{"-", "2802.027360665928`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "1", ",", 
     RowBox[{"-", "7267.576796410887`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "2", ",", 
     RowBox[{"-", "13338.266484707498`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "3", ",", 
     RowBox[{"-", "18731.13623840617`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4", ",", "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", 
     RowBox[{"-", "38202.65369326898`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "6", ",", 
     RowBox[{"-", "58887.87549254027`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "7", ",", 
     RowBox[{"-", "78773.59399772866`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "8", ",", 
     RowBox[{"-", "100187.98755123747`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "9", ",", 
     RowBox[{"-", "123595.6485882299`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "10", ",", 
     RowBox[{"-", "149150.84778182802`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665553001877882*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R5vals", "=", 
  RowBox[{"Array", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5", ",", "#", ",", 
       RowBox[{"R5", "[", 
        RowBox[{"[", 
         RowBox[{"#", "+", "1"}], "]"}], "]"}]}], "}"}], "&"}], ",", "11", 
    ",", "0"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665550131477401*^9, 3.665550156936676*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"5", ",", "0", ",", 
     RowBox[{"-", "4259.372176202228`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "1", ",", 
     RowBox[{"-", "11185.843459434318`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "2", ",", 
     RowBox[{"-", "21062.347817788595`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "3", ",", 
     RowBox[{"-", "33022.85410096383`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "4", ",", 
     RowBox[{"-", "42572.4118108213`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5", ",", "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6", ",", 
     RowBox[{"-", "77964.8909261201`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "7", ",", 
     RowBox[{"-", "114784.5268158514`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "8", ",", 
     RowBox[{"-", "149032.10220819412`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "9", ",", 
     RowBox[{"-", "185251.05483108404`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "10", ",", 
     RowBox[{"-", "224348.86267328536`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665556891758402*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R6vals", "=", 
  RowBox[{"Array", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"6", ",", "#", ",", 
       RowBox[{"R6", "[", 
        RowBox[{"[", 
         RowBox[{"#", "+", "1"}], "]"}], "]"}]}], "}"}], "&"}], ",", "11", 
    ",", "0"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6655501670022707`*^9, 3.66555017362501*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"6", ",", "0", ",", 
     RowBox[{"-", "6057.429581770026`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "1", ",", 
     RowBox[{"-", "16014.787278181437`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "2", ",", 
     RowBox[{"-", "30447.83477789314`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "3", ",", 
     RowBox[{"-", "48858.39643955407`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "4", ",", 
     RowBox[{"-", "69682.988001854`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "5", ",", 
     RowBox[{"-", "84916.77884037419`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "6", ",", "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "7", ",", 
     RowBox[{"-", "143642.59393765795`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "8", ",", 
     RowBox[{"-", "204070.34713070848`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "9", ",", 
     RowBox[{"-", "258706.23389928197`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "10", ",", 
     RowBox[{"-", "315605.14346626215`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665569933060287*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R7vals", "=", 
  RowBox[{"Array", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"7", ",", "#", ",", 
       RowBox[{"R7", "[", 
        RowBox[{"[", 
         RowBox[{"#", "+", "1"}], "]"}], "]"}]}], "}"}], "&"}], ",", "11", 
    ",", "0"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665550179434622*^9, 3.665550187921398*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"7", ",", "0", ",", 
     RowBox[{"-", "8209.661288540281`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "1", ",", 
     RowBox[{"-", "21797.25404248685`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "2", ",", 
     RowBox[{"-", "41641.902968795555`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "3", ",", 
     RowBox[{"-", "67398.66576654886`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "4", ",", 
     RowBox[{"-", "98226.63095797543`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "5", ",", 
     RowBox[{"-", "131517.61070270327`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "6", ",", 
     RowBox[{"-", "154032.22865554102`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "7", ",", "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "8", ",", 
     RowBox[{"-", "245143.55928590376`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "9", ",", 
     RowBox[{"-", "338468.4042790476`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "10", ",", 
     RowBox[{"-", "420775.59807199007`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665569933572942*^9, 3.665622644711048*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R8vals", "=", 
  RowBox[{"Array", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"8", ",", "#", ",", 
       RowBox[{"R8", "[", 
        RowBox[{"[", 
         RowBox[{"#", "+", "1"}], "]"}], "]"}]}], "}"}], "&"}], ",", "11", 
    ",", "0"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.66555019303513*^9, 3.6655501988979177`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"8", ",", "0", ",", 
     RowBox[{"-", "10727.712206245533`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "1", ",", 
     RowBox[{"-", "28567.816137102393`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "2", ",", 
     RowBox[{"-", "54732.05390470697`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "3", ",", 
     RowBox[{"-", "88954.83753947857`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "4", ",", 
     RowBox[{"-", "130686.18511816076`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "5", ",", 
     RowBox[{"-", "178591.7113683069`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "6", ",", 
     RowBox[{"-", "228574.96561579514`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "7", ",", 
     RowBox[{"-", "259948.78865938936`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "8", ",", "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "9", ",", 
     RowBox[{"-", "394203.19859488046`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "10", ",", 
     RowBox[{"-", "531682.200073407`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665569933987183*^9, 3.665622650181035*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R9vals", "=", 
  RowBox[{"Array", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"9", ",", "#", ",", 
       RowBox[{"R9", "[", 
        RowBox[{"[", 
         RowBox[{"#", "+", "1"}], "]"}], "]"}]}], "}"}], "&"}], ",", "11", 
    ",", "0"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665550204371439*^9, 3.6655502106581593`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"9", ",", "0", ",", 
     RowBox[{"-", "13621.873728371687`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "1", ",", 
     RowBox[{"-", "36356.12391905625`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "2", ",", 
     RowBox[{"-", "69784.41252771899`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "3", ",", 
     RowBox[{"-", "113687.63027641801`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "4", ",", 
     RowBox[{"-", "167663.6109323534`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "5", ",", 
     RowBox[{"-", "230874.37967667324`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "6", ",", 
     RowBox[{"-", "301306.6215920129`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "7", ",", 
     RowBox[{"-", "372822.5515351045`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "8", ",", 
     RowBox[{"-", "414524.10172889224`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "9", ",", "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "10", ",", 
     RowBox[{"-", "604442.3265879529`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665592993049263*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R10vals", "=", 
  RowBox[{"Array", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"10", ",", "#", ",", 
       RowBox[{"R10", "[", 
        RowBox[{"[", 
         RowBox[{"#", "+", "1"}], "]"}], "]"}]}], "}"}], "&"}], ",", "11", 
    ",", "0"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6655502165158463`*^9, 3.665550222562784*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"10", ",", "0", ",", 
     RowBox[{"-", "16901.37815244467`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "1", ",", 
     RowBox[{"-", "45188.38828733583`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "2", ",", 
     RowBox[{"-", "86854.17081786897`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "3", ",", 
     RowBox[{"-", "141708.96635213878`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "4", ",", 
     RowBox[{"-", "209436.7375402321`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "5", ",", 
     RowBox[{"-", "289445.6670120053`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "6", ",", 
     RowBox[{"-", "380511.8432862122`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "7", ",", 
     RowBox[{"-", "479717.46243734757`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "8", ",", 
     RowBox[{"-", "578208.3132129232`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "9", ",", 
     RowBox[{"-", "631501.2133930344`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "10", ",", "Indeterminate"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.665592993371649*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"str", "=", 
  RowBox[{"OpenAppend", "[", "file", "]"}]}]], "Input",
 CellChangeTimes->{{3.6655500007627583`*^9, 3.6655500063098993`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_R.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_R.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.665557111163941*^9, 3.6656226656039753`*^9, 
  3.665622707720148*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Export", "[", 
  RowBox[{"str", ",", "R4vals", ",", "\"\<TSV\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteLine", "[", 
  RowBox[{"str", ",", "\"\<\>\""}], "]"}]}], "Input",
 CellChangeTimes->{{3.6655500119222107`*^9, 3.665550026552005*^9}, {
  3.665550528508073*^9, 3.665550529372231*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_R.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_R.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.6655571155310917`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Export", "[", 
  RowBox[{"str", ",", "R5vals", ",", "\"\<TSV\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"WriteLine", "[", 
  RowBox[{"str", ",", "\"\<\>\""}], "]"}]}], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_R.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_R.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.665557131712393*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Export", "[", 
    RowBox[{"str", ",", "R6vals", ",", "\"\<TSV\>\""}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"WriteLine", "[", 
    RowBox[{"str", ",", "\"\<\>\""}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{"str", ",", "R7vals", ",", "\"\<TSV\>\""}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"WriteLine", "[", 
    RowBox[{"str", ",", "\"\<\>\""}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{"str", ",", "R8vals", ",", "\"\<TSV\>\""}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"WriteLine", "[", 
    RowBox[{"str", ",", "\"\<\>\""}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{"str", ",", "R9vals", ",", "\"\<TSV\>\""}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"WriteLine", "[", 
    RowBox[{"str", ",", "\"\<\>\""}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{"str", ",", "R10vals", ",", "\"\<TSV\>\""}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.665550031601894*^9, 3.665550090057412*^9}, {
   3.665550531276576*^9, 3.665550552503211*^9}, 3.665557127687272*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_R.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_R.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.665622715401203*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_R.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_R.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.665622715460649*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_R.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_R.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.665622715508172*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_R.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_R.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.665622715521768*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Mathematica_R.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/\
Mathematica_R.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["3",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat",
                    3]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.66562271553644*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Close", "[", "str", "]"}]], "Input",
 CellChangeTimes->{{3.665539126929152*^9, 3.6655391298523607`*^9}}],

Cell[BoxData["\<\"Dropbox/AdS_CFT/MasslessScalarRecursion/Mathematica_R.dat\"\
\>"], "Output",
 CellChangeTimes->{3.665539130423431*^9, 3.665541209929934*^9, 
  3.665549490906032*^9, 3.665557137178259*^9, 3.665622719995983*^9}]
}, Open  ]]
},
WindowSize->{663, 719},
WindowMargins->{{Automatic, 46}, {Automatic, 0}},
FrontEndVersion->"10.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 10, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1020, 20, 63, "Input"],
Cell[1581, 42, 932, 24, 28, "Input"],
Cell[2516, 68, 825, 21, 46, "Input"],
Cell[3344, 91, 307, 9, 28, "Input"],
Cell[3654, 102, 380, 11, 28, "Input"],
Cell[4037, 115, 574, 17, 28, "Input"],
Cell[4614, 134, 225, 5, 28, "Input"],
Cell[4842, 141, 1339, 30, 63, "Input"],
Cell[6184, 173, 1264, 29, 80, "Input"],
Cell[7451, 204, 1370, 32, 63, "Input"],
Cell[8824, 238, 1323, 31, 80, "Input"],
Cell[10150, 271, 5212, 145, 165, "Input"],
Cell[15365, 418, 658, 18, 28, "Input"],
Cell[16026, 438, 615, 18, 46, "Input"],
Cell[16644, 458, 4732, 137, 182, "Input"],
Cell[21379, 597, 1452, 42, 63, "Input"],
Cell[CellGroupData[{
Cell[22856, 643, 165, 3, 28, "Input"],
Cell[23024, 648, 154, 2, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23215, 655, 212, 4, 28, "Input"],
Cell[23430, 661, 133, 1, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23600, 667, 196, 4, 28, "Input"],
Cell[23799, 673, 202, 3, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24038, 681, 387, 9, 63, "Input"],
Cell[24428, 692, 232, 3, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24697, 700, 352, 6, 28, "Input"],
Cell[25052, 708, 18059, 366, 64, "Output"]
}, Open  ]],
Cell[43126, 1077, 2462, 52, 114, "Input"],
Cell[CellGroupData[{
Cell[45613, 1133, 871, 12, 28, "Input"],
Cell[46487, 1147, 651, 9, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47175, 1161, 233, 4, 28, "Input"],
Cell[47411, 1167, 222, 6, 49, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47670, 1178, 428, 10, 63, "Input"],
Cell[48101, 1190, 207, 3, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48345, 1198, 279, 5, 28, "Input"],
Cell[48627, 1205, 17963, 364, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66627, 1574, 127, 2, 28, "Input"],
Cell[66757, 1578, 162, 2, 28, "Output"]
}, Open  ]],
Cell[66934, 1583, 869, 22, 63, "Input"],
Cell[CellGroupData[{
Cell[67828, 1609, 148, 2, 28, "Input"],
Cell[67979, 1613, 428, 8, 63, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68444, 1626, 326, 7, 28, "Input"],
Cell[68773, 1635, 673, 33, 28, "Output"]
}, Open  ]],
Cell[69461, 1671, 314, 8, 28, "Input"],
Cell[CellGroupData[{
Cell[69800, 1683, 751, 22, 63, "Input"],
Cell[70554, 1707, 680, 21, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71271, 1733, 177, 3, 28, "Input"],
Cell[71451, 1738, 17869, 363, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89357, 2106, 129, 2, 28, "Input"],
Cell[89489, 2110, 136, 2, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89662, 2117, 157, 3, 28, "Input"],
Cell[89822, 2122, 17945, 364, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107804, 2491, 461, 11, 28, "Input"],
Cell[108268, 2504, 326, 8, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108631, 2517, 326, 9, 28, "Input"],
Cell[108960, 2528, 582, 13, 46, "Output"]
}, Open  ]],
Cell[109557, 2544, 370, 11, 28, "Input"],
Cell[CellGroupData[{
Cell[109952, 2559, 456, 12, 28, "Input"],
Cell[110411, 2573, 580, 13, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111028, 2591, 405, 11, 28, "Input"],
Cell[111436, 2604, 582, 13, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112055, 2622, 409, 11, 28, "Input"],
Cell[112467, 2635, 582, 13, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113086, 2653, 405, 11, 28, "Input"],
Cell[113494, 2666, 582, 13, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114113, 2684, 406, 11, 28, "Input"],
Cell[114522, 2697, 581, 13, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115140, 2715, 409, 11, 28, "Input"],
Cell[115552, 2728, 582, 14, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116171, 2747, 545, 14, 28, "Input"],
Cell[116719, 2763, 711, 20, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[117467, 2788, 326, 7, 46, "Input"],
Cell[117796, 2797, 17893, 363, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[135726, 3165, 492, 13, 28, "Input"],
Cell[136221, 3180, 1304, 36, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137562, 3221, 175, 3, 28, "Input"],
Cell[137740, 3226, 17895, 363, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155672, 3594, 375, 11, 28, "Input"],
Cell[156050, 3607, 1250, 35, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[157337, 3647, 368, 11, 28, "Input"],
Cell[157708, 3660, 1250, 35, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[158995, 3700, 369, 11, 28, "Input"],
Cell[159367, 3713, 1250, 35, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160654, 3753, 368, 11, 28, "Input"],
Cell[161025, 3766, 1274, 35, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162336, 3806, 369, 11, 28, "Input"],
Cell[162708, 3819, 1274, 35, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164019, 3859, 370, 11, 28, "Input"],
Cell[164392, 3872, 1251, 35, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[165680, 3912, 373, 11, 28, "Input"],
Cell[166056, 3925, 1262, 36, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[167355, 3966, 161, 3, 28, "Input"],
Cell[167519, 3971, 17918, 364, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185474, 4340, 326, 7, 46, "Input"],
Cell[185803, 4349, 17871, 363, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[203711, 4717, 209, 5, 46, "Input"],
Cell[203923, 4724, 17869, 363, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[221829, 5092, 1168, 26, 182, "Input"],
Cell[223000, 5120, 17869, 363, 64, "Output"],
Cell[240872, 5485, 17869, 363, 64, "Output"],
Cell[258744, 5850, 17869, 363, 64, "Output"],
Cell[276616, 6215, 17869, 363, 64, "Output"],
Cell[294488, 6580, 17868, 363, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[312393, 6948, 128, 2, 28, "Input"],
Cell[312524, 6952, 227, 3, 28, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)