MathGroup Archive 2002

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

Search the Archive

RE: Need faster way to combine arrays

  • To: mathgroup at smc.vnet.net
  • Subject: [mg36062] RE: [mg36045] Need faster way to combine arrays
  • From: "DrBob" <majort at cox-internet.com>
  • Date: Thu, 15 Aug 2002 02:36:13 -0400 (EDT)
  • Reply-to: <drbob at bigfoot.com>
  • Sender: owner-wri-mathgroup at wolfram.com

Transpose[{r, g, b}, {3, 1, 2}]

Bobby Treat

-----Original Message-----
From: Kevin Gross [mailto:kcgross at sbcglobal.net] 
To: mathgroup at smc.vnet.net
Subject: [mg36062] [mg36045] Need faster way to combine arrays

Hello all,

I've been using Mathematica for a while, but only recently for image 
processing.  Suppose I have the following 2D intensity arrays:

r={{a1,b1},{c1,d1}};
g={{a2,b2},{c2,d2}};
b={{a3,b3},{c3,d3}};

Now I'd like to combine them to produce a color image.

color=Table[{r[[i,j]],g[[i,j]],b[[i,j]]},{i,2},{j,2}]

This returns

{{{a1, a2, a3}, {b1, b2, b3}}, {{c1, c2, c3}, {d1, d2, d3}}}

which can be viewed as a color image with

Graphics[Raster[color,ColorFunction->RGBColor]]//Show

When the 2D arrays are large, combining them to form the color tensor as

above is very time consuming.  Surely there is a more efficient, clever 
way to combine them than my use of Table, right?

Many thanks,

Kevin Gross

PS Any comments pro/con from users of the Digital Image Processing 
package are also welcome.





  • Prev by Date: Re: Need faster way to combine arrays
  • Next by Date: Re: Need faster way to combine arrays
  • Previous by thread: Re: Need faster way to combine arrays
  • Next by thread: Re: Need faster way to combine arrays