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: [mg33493] RE: [mg33439] Adding columns and rows to a table
  • From: "Harvey P. Dale" <hpd1 at nyu.edu>
  • Date: Fri, 22 Mar 2002 04:08:59 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Philip:
	This may help:
cols[l_List]:=Module[{tab2=Flatten/@({#,{#[[-1]]},
	{#[[-1]]}}&/@l)},Join[tab2,{Last[tab2]},{Last[tab2]}]]
	Best,
	Harvey
Harvey P. Dale
University Professor of Philanthropy and the Law
Director, National Center on Philanthropy and the Law
New York University School of Law
Room 206A
110 West 3rd Street
New York, N.Y. 10012-1074

-----Original Message-----
From: Philip M. Howe [mailto:pmhowe at lanl.gov] 
To: mathgroup at smc.vnet.net
Subject: [mg33493] [mg33439] Adding columns and rows to a table

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

________________________________________________________________________
This email has been scanned for all viruses by the MessageLabs SkyScan
service. For more information on a proactive anti-virus service working
around the clock, around the globe, visit http://www.messagelabs.com
________________________________________________________________________


  • Prev by Date: Re: A black backgroud...
  • Next by Date: Re: Adding columns and rows to a table
  • Previous by thread: Re: Adding columns and rows to a table
  • Next by thread: Re: Adding columns and rows to a table