complexplot

Preben Alsholm — Fri, 08 Feb 2013 23:26:05 Z

You could try complexplot:
u:=exp(-I*f(x)*x)/sqrt(f(x));
u1:=eval(u,f(x)=sin(x)^2);
with(plots):
eps:=.1:
complexplot(eval(u,f(x)=sin(x)^2),x=eps..Pi-eps);
animate(complexplot,[u1,x=eps..a],a=eps..Pi-eps);

Addition

Markiyan Hirnyk — Sat, 09 Feb 2013 01:33:57 Z

plots:-complexplot3d(u1, x = (1/4)*Pi+(1/4)*Pi*I .. (1/2)*Pi+(1/2)*Pi*I, axes = frame);

PS.

plot3d(Re(eval(u1, x = ksi+I*eta)), ksi = (1/4)*Pi .. (1/2)*Pi, eta = (1/4)*Pi .. (1/2)*Pi, axes = frame);

plot3d(Im(eval(u1, x = ksi+I*eta)), ksi = (1/4)*Pi .. (1/2)*Pi, eta = (1/4)*Pi .. (1/2)*Pi, axes = frame);

MaplePrimes - answers and comments on Question, plotting WKB solutions

complexplot

Addition