| 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: , |
|
