Re: Matrix Problem
- To: mathgroup at smc.vnet.net
- Subject: [mg53594] Re: Matrix Problem
- From: "Ray Koopman" <koopman at sfu.ca>
- Date: Wed, 19 Jan 2005 02:00:13 -0500 (EST)
- References: <csino0$nj8$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
nilaakash wrote:
> Hi,
> I face a problem to get (3xn) matrix data. Here I am giving a
> simple example.
>
> data = Table[{Sin[x], Cos[y], Sin[x] Cos[y]}, {x, 0, 3, 1},
> {y, 0, 2, 1}];
> MatrixForm[data]
>
> It prints a (4x3) block matrix.
>
> Could anybody tell me how shall I get only 3 column matrix like
> following matrix ?
>
> Sin[0] Cos[0] Sin[0] Cos[0]
> Sin[1] Cos[0] Sin[1] Cos[0]
> Sin[2] Cos[0] Sin[2] Cos[0]
> Sin[3] Cos[0] Sin[3] Cos[0]
> Sin[0] Cos[1] Sin[0] Cos[1]
> Sin[1] Cos[1] Sin[1] Cos[1]
> Sin[2] Cos[1] Sin[2] Cos[1]
> Sin[3] Cos[1] Sin[3] Cos[1]
> Sin[0] Cos[2] Sin[0] Cos[2]
> Sin[1] Cos[2] Sin[1] Cos[2]
> Sin[2] Cos[2] Sin[2] Cos[2]
> Sin[3] Cos[2] Sin[3] Cos[2]
>
> Thanks.
>
> Nilaakash
To get the terms in the order you listed them,
swap the x and y loops in the Table commmand.
To convert the 3 x 4 x 3 table to a 12 x 3 matrix, Flatten it once.
data = Table[{Sin[x],Cos[y],Sin[x]*Cos[y]},{y,0,2},{x,0,3}];
TableForm@Flatten[data,1]
0 1 0
Sin[1] 1 Sin[1]
Sin[2] 1 Sin[2]
Sin[3] 1 Sin[3]
0 Cos[1] 0
Sin[1] Cos[1] Cos[1] Sin[1]
Sin[2] Cos[1] Cos[1] Sin[2]
Sin[3] Cos[1] Cos[1] Sin[3]
0 Cos[2] 0
Sin[1] Cos[2] Cos[2] Sin[1]
Sin[2] Cos[2] Cos[2] Sin[2]
Sin[3] Cos[2] Cos[2] Sin[3]