Re: Adding columns and rows to a table

• To: mathgroup at smc.vnet.net
• Subject: [mg33470] Re: Adding columns and rows to a table
• From: "Carl K. Woll" <carlw at u.washington.edu>
• Date: Fri, 22 Mar 2002 04:06:51 -0500 (EST)
• Organization: University of Washington
• References: <a7crth\$hug\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi Philip,

The function PadRight may prove useful for you.

For example, with

tab1 = {{1, 2, 3, 4}, {5, 6, 7, 8}, {9, 10, 11, 12}};

we can add two rows with

and we can add two columns with

The List statement in the first example is actually unnecessary, but makes
it clear how to go about adding two columns as in the second example.

Carl Woll
Physics Dept
U of Washington

"Philip M. Howe" <pmhowe at lanl.gov> wrote in message
news:a7crth\$hug\$1 at smc.vnet.net...
> Hello,
>
> I want to add to a table two columns that match the last column, and
> two rows that match the last row.
>
> Thus, if my table is
>
> {{1,2,3,4},{5,6,7,8},{9,10,11,12}};  I want to modify it such that I
> end up with
>
> {{1,2,3,4,4,4},  {5,6,7,8,8,8}, {9,10,11,12,12,12}, {
> 9,10,11,12,12,12}, {9,10,11,12,12,12}};
>
> This works:
>
> tab1 = {{1, 2, 3, 4}, {5, 6, 7, 8}, {9, 10, 11, 12}};
>
> tab1c = Transpose[
>        Append[Append[Transpose[tab1], Transpose[tab1][[-1]]],
>          Transpose[tab1][[-1]]]];
> tab1d = Append[Append[tab1c, tab1c[[-1]]], tab1c[[-1]]] // TableForm
>
>
> However, I bet there are much more efficient and elegant ways of
> doing this.  Any suggestions?
>
> Thanks in advance for the help.  The ideas I obtain from you folks
>
> Regards,
>
> Phil
> --
> Philip M. Howe
> Program Manager, Stockpile Surety
> Los Alamos National Laboratory
>
> (505) 665-5332
> (505) 667-9498
> Fax: 505-665-5249
> email pmhowe at lanl.gov
> Mail Stop P945
>

```

• Prev by Date: Re: List operations "in a given dimension"
• Next by Date: Re: A black backgroud...
• Previous by thread: Re: Adding columns and rows to a table
• Next by thread: RE: Adding columns and rows to a table