Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Hybrid Optimization Techniques' topicStudent Support Forum > General > "Hybrid Optimization Techniques"

< Previous CommentHelp | Reply To Comment | Reply To Topic
Author Comment/Response
yehuda ben-shimol
11/01/10 11:35am

In Response To 'Re: Hybrid Optimization Techniques'
---------
In addition to the Forum Moderator I must mention that the specific function is problematic.
To investigate it "manually" you can try the following code (using version 7)

f[i_, j_] :=
E^Sin[50 i] + Sin[60 E^j] + Sin[70 Sin[i]] + Sin[Sin[80 j]] -
Sin[10 (i + j)] + 1/4 (i^2 + j^2);
Manipulate[
sol = NMinimize[{f[i, j], -a <= i <= a, -a <= j <= a}, {i, j},
Method -> "DifferentialEvolution"][[2]];
GraphicsGrid[{{Show[
Plot3D[f[x, y], {x, -a, a}, {y, -a, a},
PlotLabel :> ({i, j, f[i, j]} /. sol)],
Graphics3D[{Red, PointSize[0.05],
Point[{i, j, f[i, j]} /. sol]}]],
ContourPlot[f[x, y], {x, -a, a}, {y, -a, a},
PlotLabel :> ({i, j, f[i, j]} /. sol),
Epilog -> {Red, PointSize[0.05], Point[{i, j} /. sol]}]}},
ImageSize -> 800], {{a, 0.1}, 0.01, 1}]


HTH

yehuda

URL: ,

Subject (listing for 'Hybrid Optimization Techniques')
Author Date Posted
Hybrid Optimization Techniques Shannon Bowl... 10/31/10 10:35am
Re: Hybrid Optimization Techniques Forum Modera... 10/31/10 4:18pm
Re: Re: Hybrid Optimization Techniques yehuda ben-s... 11/01/10 11:35am
< Previous CommentHelp | Reply To Comment | Reply To Topic