Re: FindMaximum doesn't converge
- To: mathgroup at smc.vnet.net
- Subject: [mg112049] Re: FindMaximum doesn't converge
- From: Themis Matsoukas <tmatsoukas at me.com>
- Date: Fri, 27 Aug 2010 04:06:56 -0400 (EDT)
The local maximum is an artifact in the contour plot. Your function has a flat maximum with respect to j at h=0:
FullSimplify[obj /. h -> 0]
-Log[8]
You can examine your function using
Manipulate[
Column[{Dynamic[H],
Plot[obj /. h -> H, {j, -5, 5}, PlotRange -> {-15, 0}]}], {H, -5,
5}]
Themis