The Math Forum

Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Math Forum » Discussions » Inactive » comp.soft-sys.math.mathematica

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Labelling a plot with maximum
Replies: 4   Last Post: Nov 23, 2009 6:59 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
Shalin Mehta

Posts: 2
Registered: 11/22/09
Labelling a plot with maximum
Posted: Nov 22, 2009 6:11 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

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;
Plot[f[x, \[CapitalDelta]], {x, -1.22, 1.22},
PlotRange -> {{-0.5, 0.5}, {0, 1.5}}], {\[CapitalDelta], 0.125,

I find the maximum for different values of Delta using:
NMaximize[f[x, \[CapitalDelta]], x], {\[CapitalDelta], 0.125,

Can someone please help with a code that can print the result returned
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.

mobile: +65-90694182

Bioimaging Lab, Block-E3A, #7-10
Div of Bioengineering, NUS Singapore 117574

Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© The Math Forum at NCTM 1994-2018. All Rights Reserved.