Plot[Max[Sin[x],Cos[x]],{x,-20,20}]