NTT_fromR.nb

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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      2708,         81]
NotebookOptionsPosition[      2399,         67]
NotebookOutlinePosition[      2755,         83]
CellTagsIndexPosition[      2712,         80]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"SetDirectory", "[", 
  "\"\</Users/maryam/Google Drive/Research/RF_improvment\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "NumberTheoryFunctions.m"}], "\[IndentingNewLine]", 
 RowBox[{"<<", " ", "numberth.m"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"init", "[", "]"}], "\n", 
 RowBox[{
  RowBox[{"U", " ", "=", " ", 
   RowBox[{"ReadList", "[", "\n", "   ", 
    RowBox[{
    "\"\</Users/maryam/Google Drive/Research/RF_improvment/testNTT.txt\>\"", 
     ",", " ", "\n", "   ", "Number", ",", " ", 
     RowBox[{"RecordLists", " ", "->", " ", "True"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"U", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"B", " ", "=", " ", 
   RowBox[{"U", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"t1", " ", "=", " ", 
   RowBox[{
    RowBox[{"fnt", "[", "A", "]"}], "*", 
    RowBox[{"fnt", "[", "B", "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"c1", " ", "=", " ", 
   RowBox[{"ifnt", "[", "t1", "]"}]}], ";"}], "\n", "c1", "\n", 
 RowBox[{"str", " ", "=", " ", 
  RowBox[{
  "OpenWrite", "[", "\n", "  ", 
   "\"\</Users/maryam/Google Drive/Research/RF_improvment/outNTT.txt\>\"", 
   "]"}]}], "\n", 
 RowBox[{"Write", "[", 
  RowBox[{"str", ",", " ", "c1"}], "]"}], "\n", 
 RowBox[{"Close", "[", "str", "]"}]}], "Input",
 CellChangeTimes->{{3.735253411577821*^9, 3.735253456196847*^9}, {
   3.735253572224071*^9, 3.73525357352667*^9}, 3.7352543189796953`*^9, {
   3.735267261221972*^9, 3.735267263104089*^9}, {3.735268133707547*^9, 
   3.735268166321697*^9}, 3.735268365769558*^9, 3.735268476400447*^9, 
   3.735268511237224*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"f446b4b9-745a-4d9f-8637-212fe444c6d8"]
},
WindowSize->{808, 713},
WindowMargins->{{Automatic, 297}, {-46, Automatic}},
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1837, 45, 367, "Input",ExpressionUUID->"f446b4b9-745a-4d9f-8637-212fe444c6d8"]
}
]
*)