Plot[{t*Log[t],-Sqrt[t]},{t,0,1.5}]