Labelling a plot with maximum

• To: mathgroup at smc.vnet.net
• Subject: [mg105146] Labelling a plot with maximum
• From: Shalin Mehta <shalin.mehta at gmail.com>
• Date: Sun, 22 Nov 2009 06:10:35 -0500 (EST)

```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}]

by NMaximize on (say) top-left of the Plot generated by the first
Manipulate above? The plot will look  neat if I can place a marker at
the X-position of maximum.

Also, I wish to have a Motion-JPEG compressed quicktime mov file
exported from this manipulate. How can that be achieved?

thanks in advance for any help.
Shalin

mobile: +65-90694182
blog: shalin.wordpress.com

Bioimaging Lab, Block-E3A, #7-10
Div of Bioengineering, NUS Singapore 117574
website: http://www.bioeng.nus.edu.sg/optbioimaging/colin/people.asp#shalinm

```

• Prev by Date: Re: Batch save mode?
• Next by Date: Re: Batch save mode?
• Previous by thread: Re: compositions with the restricted set of integers
• Next by thread: Re: Labelling a plot with maximum