Hi, Try this one integrate p (x-1/6L)-1/3*P x dx from x=0 to x=L
Sometimes a little Mathematica notation can coax WolframAlpha into providing an answer
Integrate[p (x-1/6 L)-1/3*P*x, {x,0,L}]
or here