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

MathGroup Archive 2007

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

Search the Archive

Joint Histogram

  • To: mathgroup at smc.vnet.net
  • Subject: [mg81121] Joint Histogram
  • From: cimon <tamanna.arora at gmail.com>
  • Date: Thu, 13 Sep 2007 06:25:30 -0400 (EDT)

Hello

I am completely new to Mathematica
and trying to work with images in it.

I am trying to create a joint histogram out of an image taking its red
and green channel.
I get this error

Table::iterb: Iterator (i,1,ydim),  does not have appropriate bounds.
Table::iterb: Iterator (i,1,ydim),  does not have appropriate bounds.

(see in code below)

When I have just written the first five lines and i try to execute. i
dont get this error.
But when I have written the for loop and than i try to execute than I
get this error.


I am just not able to fix this out.
can somebody plese guide me with this.
-------------------------------------------------------------------------
penny = Import["c:\penny.ppm"];
Shallow[penny];
data = penny[[1, 1]];

ydim = Dimensions[data][[1]];
xdim = Dimensions[data][[2]];

Table::iterb: Iterator (i,1,ydim),  does not have appropriate bounds.
Table::iterb: Iterator (i,1,ydim),  does not have appropriate bounds.

(* Create a Joint table
    Go to each (i, j)th Location in red and green Channel
    Get Pixel value from (i, j)th location from each red and green
channel
    Use that as an index into
    Joint Table and incerment the value at that index by 1
  *)

Joint = Table[0, {ti, 1, 256}, {tb, 1, 256}];
Dimensions[Joint];


For[fi = 0, fi =E2=89=A4 xdim, fi++
      For[fj = 0, fj =E2=89=A4 ydim, fj++
            Joint[redChannel[[fi, fj]], greenChannel[[fi, fj]]] +=
1]];

Show[Graphics[Raster[Joint], AspectRatio -> 1, Axes -> True]]


---------------------------------------------------------------------------=
------------------------------------



  • Prev by Date: Re: rotating rings illusion
  • Next by Date: Re: help plot log[f[t]] vs a parameter using an ODE
  • Previous by thread: Re: How to invert a function
  • Next by thread: Re: Joint Histogram