simple diffusion modell (now using R simecoll instead of netlogo!)