I would like to perform the polar plot of an electron microscope contrast transfer function, into a black and white image.

I have used the equation

t = -Sin[π/2 #^4 + π #^2 ] &;

Plot[t[x], {x, 0, 5}] 

to generate the sample function.

enter image description here

However, I was unable to convert this image into the contrast transfer function plot.

In short, what function would convert the plot

enter image description here

into the image

enter image description here

  • $\begingroup$ Take a look at DensityPlot. $\endgroup$ – Kuba Jan 3 '15 at 11:37
a = 1.5;
DensityPlot[t[Norm[{x, y}]], {x, -a, a}, {y, -a, a}, PlotPoints -> 50, MaxRecursion -> 3]

Mathematica graphics

But beware of the tuning parameters:

a = 5;
DensityPlot[t[Norm[{x, y}]], {x, -a, a}, {y, -a, a}]

Mathematica graphics

  • $\begingroup$ Thanks! I tried density plot first, but gave up after it gave me the ridiculous pattern. $\endgroup$ – March Ho Jan 3 '15 at 14:24
  • $\begingroup$ @MarchHo Somehow I guessed that. That's why I included the last plot :) $\endgroup$ – Dr. belisarius Jan 3 '15 at 15:03

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.