Plot[{Cos[25x]Cos[x],Cos[x],-Cos[x]},{x,0,8}]

Plot3D[{BesselJ[1,x]BesselJ[1,y]},{x,0,5},{y,0,5}]