Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: Trouble with tables

  • To: mathgroup at smc.vnet.net
  • Subject: [mg64836] Re: Trouble with tables
  • From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
  • Date: Sun, 5 Mar 2006 03:18:55 -0500 (EST)
  • Organization: Uni Leipzig
  • References: <dubjlr$gua$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

try
ni = 1; nj = 2;
a = Flatten[Table[x[i, j], {i, 1, ni}, {j, 1, 
nj}]]; d = Dimensions[a][[1]];
b = {}; Do[b = Append[b, {a[[i]], 1, 3}], {i, 1, 
d}];
t2 = Table @@ Join[{Append[a, y]}, b]

because Table[] has the Attribute HoldAll

Regards

  Jens

"Luiz Melo" <luiz.melo at polymtl.ca> schrieb im 
Newsbeitrag news:dubjlr$gua$1 at smc.vnet.net...
| Hi there,
| I'm having a little trouble with the function 
"Table". Using:
|
| t1 = Table[{x[1, 1], x[1, 2], y}, {x[1, 1], 1, 
3}, {x[1, 2], 1, 3}]
|
| the variables x[1,1] and x[1,2] assume the 
values 1, 2 and 3, that's fine.
| Now I want to automatically generate the 
argument of the function Table above
| and then evaluate it. I tried the following 
program:
|
| ni = 1; nj = 2;
| a = Flatten[Table[x[i, j], {i, 1, ni}, {j, 1, 
nj}]]; d = Dimensions[a][[1]];
| b = {}; Do[b = Append[b, {a[[i]], 1, 3}], {i, 1, 
d}];
| t2 = Table[Join[{Append[a, y]}, b]];
|
| and I got a result (t2) which is different from 
t1. Why?
|
| Thanks,
| Luiz
|
|
| 



  • Prev by Date: Re: Mathematica, PDF and Ghostscript
  • Next by Date: Re: Multiple application of LinearFilter
  • Previous by thread: Re: Trouble with tables
  • Next by thread: Re: Trouble with tables