alpha = 
      1. 
miu = 1. 
DD = 10. 
a = Sqrt[2*miu*DD]/alpha
za = 2*a*Exp[-alpha*x]
Vx = 
      DD*Exp[-alpha*x]*(Exp[-alpha*x] - 
            2. )
Plot[Vx, {x, -2. , 2}, PlotPoints -> 61, 
      PlotStyle -> {{Thickness[0.006], 
            GrayLevel[
              0.3]}}]   
F0 = 0.5/20*Exp[-za/2]*za^(a - 0.5)
F1 = 
      1/20*Exp[-za/2]*
        za^(a - 0.5 - 1. )*(-za + 2*(a - 0.5 - 1. ) + 
            1. )
\(Plot[{F0, F1}, {x, \(-2\), 3}, 
      PlotStyle -> {{Thickness[0.005], 
            GrayLevel[0.1]}}]\  (*dwie\ funkcje\ falowe\ dla\ 1 \( D : \ 
            v\) = 0, v = 1*) 
\)