Re: Output Table Format Change
- To: mathgroup at smc.vnet.net
- Subject: [mg66672] Re: [mg66652] Output Table Format Change
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sat, 27 May 2006 03:50:37 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
tbl = Table[ N[ {Sin[u+v],Cos[u-v]}],{u,0, Pi,Pi/6},{v,0, Pi,Pi/6}];
Use Flatten; however, you probably don't want the resulting transitions included.
ListPlot[Flatten[tbl,1],PlotJoined->True,
AspectRatio->Automatic];
You can use MultipleListPlot or overlay the individual ListPlots
Needs["Graphics`"];
MultipleListPlot[tbl,PlotJoined->True,
AspectRatio->Automatic,PlotStyle->{Black}];
DisplayTogether[
ListPlot[#,PlotJoined->True,
AspectRatio->Automatic]&/@tbl];
Bob Hanlon
---- Narasimham <mathma18 at hotmail.com> wrote:
> Is there a command for removal of brackets automatically from
> output ?
>
> 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).
>
> Thanks in advance.
>
--
Bob Hanlon
hanlonr at cox.net