Plot[1-Cos[x],{x,0,100}]