I am very happy that this post was created and that it was selected as a Staff Pick.
This notebook gives great results, but if we repeat the optimization 20 times, the computation time will be around 20 days.
The computation might be made much faster using advanced Mathematica's functions.
However, version 7 can solve simultaneous equations much faster than later versions.
I am currently trying to optimize the arrangement of point-like scatterers for a transcranial ultrasound lens that can uniformly stimulate the brain with ultrasound for the treatment of Alzheimer's disease.
