n=50
x=Table[Random[],{n}]
yy=Sort[x]
zz=Table[k,{k,1,n}]*(1/n) //N
Table[{yy[[i]],zz[[i]]}, {i,1,n}]
Delta[x_]:=0/; x<0
Delta[x_]:=1/; x³ 0
DE[x_]:=Table[{Delta[yy[[i]]-x]},{i,1,n}]
EDF[n_,x_]:=1.-Apply[Plus,DE[x]]*(1/n) //N
Funif[x_]:=x
EMP[n_,x_]:=Sqrt[n]*(EDF[n,x]-Funif[x])
Plot[{EDF[n,x],Funif[x]}, {x,0,1},
          PlotStyle\[Rule]{
           {Thickness[1/100],RGBColor[0.000,1.00,0.196],Dashing[{}]},
          {Thickness[1/120],RGBColor[0,0,1],Dashing[{}]}},   
  AspectRatio\[Rule]1.0
     ]
Plot[EMP[n,x],{x,0,1},PlotStyle\[Rule]RGBColor[1.000,0.032,0.948],
  AspectRatio\[Rule]1.0]