WolframAlpha computational knowledge AI
Plot[{(1-Abs[1-x]),2*(1-Abs[1-x])+Abs[x],-Abs[x]},{x,-2,2}]