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