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