Plot[500*Exp[-x/(365*2.09)], {x, 0, 6*365}]