integrate[piecewise[{{k(x+1)^2, -1≦x≦0}, {-k/3x+k, 0≦x≦3}}], {x,-infinity,infinity}] = 1