SetDirectory["/home/faculty/struther/Desktop/link to \
5903/CORDIC"]
\(Export[
"ListOfReals.txt", 
Sort[
Table[
Random[], 
{100}]
], 
"Table"]\)
Run["chmod a+r ListOfReals.txt"]

\(SetDirectory["/home/faculty/struther/Desktop/link to 5903/CORDIC/"]\)
Shifts = 
        Table[
1. /(2^k), {k,  0,  
            32}];
Export["Shifts.txt",  
      Shifts, "Table"]
Run["chmod a+r Shifts.txt"]
CosShifts = Cos[Shifts];
Export["CosShifts.txt",  
      CosShifts, "Table"]
Run["chmod a+r CosShifts.txt"]
SinShifts = Sin[Shifts];
Export["SinShifts.txt",  
      SinShifts, "Table"]
Run["chmod a+r SinShifts.txt"]

f[x_] =  Sin[x]
g[x_] = Normal[Series[f[x], {x, 0,  6}]]
Plot[ {f[x], g[x]}, {x,  -2, 2}];

Plot[ {Abs[f[x] - g[x]]/Abs[f[x]]}, {x,  0, 
        1}, 
PlotRange -> All]

f[1.0]
g[1.0]