Exporting a vector

*To*: mathgroup at smc.vnet.net*Subject*: [mg108883] Exporting a vector*From*: nt <sagittarius5962 at gmail.com>*Date*: Mon, 5 Apr 2010 08:02:58 -0400 (EDT)

Hi all, I want to export a vector from a loop statement with two counting variables, i,j. as an example: w0=1;dk=1; eq= a function of w and k; Do[{w[i] = i*w0}; {eq1[i] =eq /. w -> w[i]}; {k[j] = j*dk}; b[i, j] = eq1[i]/.k-> k[j]}];bet[i] = Min[bet[i, j]], {i, 1, 5}, {j, 1, 5}] ; When I try to name the Do loop and export to excel, it exports the whole matrix with the size 5*5. How can I export the vector bet[i] from the loop?