[Date Index] [Thread Index] [Author Index]

Re: Removing brakets of a list

• To: mathgroup at smc.vnet.net
• Subject: [mg48295] Re: Removing brakets of a list
• From: bghiggins at ucdavis.edu (Brian Higgins)
• Date: Sat, 22 May 2004 03:04:26 -0400 (EDT)
• References: <c8kd7c$msa$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Sebastian, 

It is not clear from your post what you plan to do once the outer
bracket of your list have been removed. In general this is not
possible as every Mathematica expression must have a Head.

For printing purposes here is one way you can get the desired effect

expr = Flatten[Table[Subscript[x, i, j],   {i, 1, 4}, {j, 1, 4}]]

Infix[expr, ","]

The output in this case has the FullForm

Infix[List[Subscript[x, 1, 1], Subscript[x, 1, 2], Subscript[
    x, 1, 3], Subscript[x, 1, 4], Subscript[
    x, 2, 1], Subscript[x, 2, 2], Subscript[
    x, 2, 3], Subscript[x, 2, 4], Subscript[
    x, 3, 1], Subscript[x, 3, 2], Subscript[
    x, 3, 3], Subscript[x, 3, 4], Subscript[
    x, 4, 1], Subscript[x, 4, 2], Subscript[
    x, 4, 3], Subscript[x, 4, 4]], ","]

Note the Head of the expression in Infix


Cheers,

Brian