MathGroup Archive 2001

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

Search the Archive

Re: A Penny for Thought

  • To: mathgroup at
  • Subject: [mg30123] Re: A Penny for Thought
  • From: "Orestis Vantzos" <atelesforos at>
  • Date: Sun, 29 Jul 2001 21:26:16 -0400 (EDT)
  • Organization: National Technical University of Athens, Greece
  • References: <9jvr7l$dns$>
  • Sender: owner-wri-mathgroup at

I suppose you  intend to scan the penny in grayscale and then import the
image to Mathematica.
If you do that, you will get a RasterArray.
Then you must turn the Raster object into a normal matrix. Interpolate using
ListInterpolation to get a function, which you can then use to get its
contour plot('height map') and then differentiate once ('slope map') and
twice('local curvature map').

<Moranresearch at> wrote in message news:9jvr7l$dns$1 at
> I wish to aquire an image of a penny (1 cent) and display it as three
> separate color coded countour maps
> 1. height map: color corresponding to height
> 2. slope map: the first derivative of height map
> 3. local curvature map: the second derivative of height map
> Any suggestions welcome.
> Thank you.
> John R Moran PhD, MD

  • Prev by Date: Integrate[Sqrt[Tan[x]], {x, 0, 1}]
  • Next by Date: Re: Pattern matching "on the fly"
  • Previous by thread: A Penny for Thought
  • Next by thread: Sum