MathGroup Archive 2002

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

Search the Archive

Re: Adding columns and rows to a table

  • To: mathgroup at smc.vnet.net
  • Subject: [mg33487] Re: Adding columns and rows to a table
  • From: bghiggins at ucdavis.edu (Brian Higgins)
  • Date: Fri, 22 Mar 2002 04:08:11 -0500 (EST)
  • References: <a7crth$hug$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Phil, try this using rules

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

In[2]:=mylist /. {x__Integer, y_Integer} -> {x, y, y, y} /. {x__, y_}
-> {x, y, y, y}

Out[2]={{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}}

Cheers,
Brian


"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 
> are extremely helpful.
> 
> 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: Adding columns and rows to a table
  • Next by Date: Re: List operations "in a given dimension"
  • Previous by thread: Re: Adding columns and rows to a table
  • Next by thread: Re: Adding columns and rows to a table