MathGroup Archive 2007

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

Search the Archive

Re: Bitmap data extraction (matrix of matrix)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg76525] Re: [mg76445] Bitmap data extraction (matrix of matrix)
  • From: János <janos.lobb at yale.edu>
  • Date: Wed, 23 May 2007 05:34:31 -0400 (EDT)
  • References: <200705220654.CAA20101@smc.vnet.net>

On May 22, 2007, at 2:54 AM, mkorneck at nd.edu wrote:

> Hello,
>
> This is most likely a simple question for those who use Mathematica on
> a semi-regular basis, but ...
>
> I have a 512x512 matrix composed of 1x3 matrix elements, and want to
> create a 512x512 matrix composed of a single value in the original 1x3
> elements.
>
> That doesn't look very well defined, so please let me explain further
> in the hopes of clarifying what I am after.
>
> It's a bitmap image file (512x512) and I want to extract a part of the
> "raw" data for further processing. The raw data in the original file
> consists of values for the red, green and blue (RGB). I would like to
> create a matrix composed of only the *red* values across the 512x512
> array.
>
> As a simplified example ....
>
> Given RGB = {{1,0,1},{2,3,2},{4,6,4},{3,2,1}}
>                     {{9,1,3},{3,2,1},{4,3,3},{5,3,2}}
>
>
> I would like to end up with R = {1,2,4,3}
>                                             {9,3,4,5}
>
> Thank you for your time,
>
> Mike K.
>

Here is a newbie approach:

In[26]:=
Table[(First[#1] & ) /@
    rgb[[i]], {i, 1,
    Length[rgb]}]
Out[26]=
{{1, 2, 4, 3}, {9, 3, 4, 5}}

J=E1nos


----------------------------------------------
Trying to argue with a politician is like lifting up the head of a 
corpse.
(S. Lem: His Master Voice)



  • Prev by Date: Re: Bitmap data extraction (matrix of matrix)
  • Next by Date: Re: Evaluation Question
  • Previous by thread: Re: Bitmap data extraction (matrix of matrix)
  • Next by thread: Re: Bitmap data extraction (matrix of matrix)