Una forma de extrar elementos de listas

In[21]:=

m = Table[i - j, {i, 2}, {j, 2}]

Out[21]=

{{0, -1}, {1, 0}}

Para extraer el primer elemento

In[22]:=

m[[1]]

Out[22]=

{0, -1}

para extraer el segundo de esta sublista

In[23]:=

%[[2]]

Out[23]=

-1

Para hacer las dos operaciones previas con una sola instrucción

In[24]:=

m[[1, 2]]

Out[24]=

-1

In[25]:=

m//TableForm

Out[25]//TableForm=

0 -1
1 0
t[[i]] o Part[t, i] da el i - ésimo elemento de t
t[[{i_1, i_2, ...}]] o Part[t, {i_1, i_2, ..}] da una lista con las i_1, i_2, ... partes de t
t[[i, j, ...]] o Part[t, i, j, ..] da el elemento de t correspondiente a t[[i]][[j]] ...

Un arreglo de más de una dimensión

In[26]:=

Table[i j^2 k^3, {i, 2}, {j, 2}, {k, 2}]

Out[26]=

{{{1, 8}, {4, 32}}, {{2, 16}, {8, 64}}}

In[27]:=

%//TableForm

Out[27]//TableForm=

1
8
4
32
2
16
8
64

In[30]:=

m=.

Created by Mathematica  (August 6, 2004)