
Labelling a plot with maximum
Posted:
Nov 22, 2009 6:11 AM


Hi everyone,
I am very new to Mathematica. I wish to prepare a figure and a movie where the maximum of the plot is labelled on the figure.
I am using Manipulate to animate a function as shown below:
jinc[x_] := BesselJ[1, 2 \[Pi] x]/(2 \[Pi] x); f[x_, \[CapitalDelta]_] := 4 Abs[jinc[x + \[CapitalDelta]]  jinc[x  \[CapitalDelta]]]^2; Manipulate[ Plot[f[x, \[CapitalDelta]], {x, 1.22, 1.22}, PlotRange > {{0.5, 0.5}, {0, 1.5}}], {\[CapitalDelta], 0.125, 0.5}]
I find the maximum for different values of Delta using: Manipulate[ NMaximize[f[x, \[CapitalDelta]], x], {\[CapitalDelta], 0.125, 0.5}]
Can someone please help with a code that can print the result returned by NMaximize on (say) topleft of the Plot generated by the first Manipulate above? The plot will look neat if I can place a marker at the Xposition of maximum.
Also, I wish to have a MotionJPEG compressed quicktime mov file exported from this manipulate. How can that be achieved?
thanks in advance for any help. Shalin
mobile: +6590694182 blog: shalin.wordpress.com
Bioimaging Lab, BlockE3A, #710 Div of Bioengineering, NUS Singapore 117574 website: http://www.bioeng.nus.edu.sg/optbioimaging/colin/people.asp#shalinm

