Re: Exporting a vector
- To: mathgroup at smc.vnet.net
- Subject: [mg108890] Re: Exporting a vector
- From: Bill Rowe <readnews at sbcglobal.net>
- Date: Tue, 6 Apr 2010 07:24:03 -0400 (EDT)
On 4/5/10 at 8:02 AM, sagittarius5962 at gmail.com (nt) wrote:
>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?
A key issue is bet[i] is not a vector in Mathematica. In
Mathematica, this notation is the function bet evaluated at i.
I can create a 2D list that can be seen as a matrix by doing:
In[1]:= b = Table[10 i + j, {i, 3}, {j, 3}];
b[[2]]
Then I can access the 2nd row by:
Out[2]= {21,22,23}
or the 2nd column by:
In[3]:= b[[All, 2]]
Out[3]= {12,22,32}
and Export["filename.xls", b[[2]], "XLS"] will export just the
second row to Excel. However, when done this way, the elements
of b[[2]] will appear in a single column rather than a single
row. If you want them in a single row then
Export["filename.xls", List/@b[[2]], "XLS"] should do that.