I had a go at your problem but did not find a solution to you result. Could be that this is due to the way that computers calculate numbers i.e. max 15 decimals.
I changed your macro a bit and did a run with excel 2010, your file is an xls file but in the macro you have a reference to "Engine:1" and these "Engine" concept was first introduced in Excel 2010.
Running you macro three times with a bit tighter convergence (0.0000001 as opposed to your setting 0.0001) gave this result
solver_1.jpg
compared to run your macro three times with your original settings
solver_2.jpg
and as you can see there is not much of a difference.
Running out of ideas I set up solver to use the Evolutionary engine. Must confess I'm not that familiar with this engine as well as the mathematics behind it. I've set a max time of 30 seconds and when it
stops telling you it has reach max time setting you are given a choice of clicking the stop button to processes the next line or continue to work on the present problem. If the result is not improved after some seconds solver jumps down to next line.
Using the Evolutionary engine in this case takes time as you must be present to provide an input for every line of the problem. For the GRG Nonlinear model result could be improved by the second run and the third run gave no improvement as far as I could see.
The "Application.ScreenUpdating" command do not have any effect in a solver run by the way aside from being a good habit.
Macro for running the Evolutionary engine:
and the result using the Evolutionary engine is perhaps a tad better than using the GRG Nonlinear but GRG seems a lot faster.
solver_3.jpg
Alf
Ps If you do have problems seeing the results right click on the images and select "Open in a new tab"
Bookmarks