wdm function

Wiener diffusion model fit function