Plot[{sin(ln(x)),cos(ln(x))},{x,0,50}]