eq1 := z = y*log(x): eq2 := z = y+x*log(x):

DispIntersecting := implicitplot3d([eq1, eq2], x = 0 .. 10, y = -30 .. 30, z = -40 .. 40, color = [blue, green]):

solve({eq1, eq2}, [x, y, z]);

assign(%):

DispIntersection := spacecurve([x, y, z], x = 0.1e-2 .. 10, color = red, view = [0 .. 10, -30 .. 30, -40 .. 40]):

display(DispIntersecting, DispIntersection, axes = boxed, scaling = constrained);