How to store the chi-square values in a text file?

I am new to Mathematica. I have a 3×3 textfile 3.txt of numerical values. Each column corresponds to a,b,c respectively. I have a function f(d,e,f). I found the bestfit values for d, e, and f using Chimin, performing a chi-square analysis contrasting with data in my 3×3 textfile 3.txt. The code i created for the same is as follows

<< NumericalCalculus`  SetDirectory["C:/Users/vmsha/Downloads"];  data = ReadList["3.txt", {Number, Number, Number}]  ndata = 3;  Do[a[i] = data[[i, 1]], {i, 1, ndata}]  Do[b[i] = data[[i, 2]], {i, 1, ndata}]  Do[c[i] = data[[i, 3]], {i, 1, ndata}]  Chi[d, e, f] := Sum[((c[i]) - (d*e*f*a[i]))^2/b[i]^2, {i, 1, ndata}]  Chimin = FindMinimum[{Chi[d, e, f], -10 < d < 10, -10 < e < 10, -10 < f < 10}, {d, e, f}]  {0.0177074, {d -> 3.36069, e -> 0.929241, f -> 0.929241}} 

Now, I am interested in getting the whole 3 chi-square values evaluated using chi(d,e,f) in a single text file. Could anybody help?