plot d = D*e^(-p/P) where D=10000,P=2, p=0to11,d=0toD