Plot[Piecewise[{{(1 - 8*p^3), 0 <= p <= 0.5}, {0 , p>0.5}}], {p,0,1}]