Re: Output Table Format Change
- To: mathgroup at smc.vnet.net
- Subject: [mg66690] Re: Output Table Format Change
- From: Bill Rowe <readnewsciv at earthlink.net>
- Date: Sat, 27 May 2006 03:51:46 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
On 5/26/06 at 4:17 AM, mathma18 at hotmail.com (Narasimham) wrote:
>Is there a command for removal of brackets automatically from
>output ?
Yes, Flatten does this. Flatten accepts a second argument to specify what level of braces should be removed.
>tbl = Table[ N[ {Sin[u+v],Cos[u-v]}],{u,0, Pi,Pi/6},{v,0, Pi,Pi/6}]
>;
>ListPlot[tb,PlotJoined->True,AspectRatio->Automatic];
>tb is same as tbl from which extra curly brackets { } are manually
>removed. (tbl output is deleted here).
It is quite unclear as to what you got when you did a manual removal since you didn't specify which brackets were removed.
Assuming you want a list of {Sin[u+v],Cos[u-v]} pairs in the order they were created, then
tb =Flatten[tbl,1];
should be what you want.
Alternatively, the same thing can be accomplished with Join, i.e.,
tb=Join@@tbl;
However, since
ListPlot[Join@@tbl, PlotJoined->True];
will make a line from the last coordinate pair in a row to the first coordinate pair in the next row, I wonder if
Show@Block[{$DisplayFunction=Identity},
ListPlot[#, PlotJoined->True]&/@tbl];
is a better choice?
--
To reply via email subtract one hundred and four