Plot[{Sin[x],3 (Sin[1]-Cos[1])x},{x,-1,1}]