> w := u+I*v;

[Maple Math]

> z := evalc(w*exp(w)):

> x := evalc(Re(z));

[Maple Math]

> y := evalc(Im(z));

[Maple Math]

> B := 6:

> f := theta -> plot3d([x,y,v], u=-6..1, v=-B..B, grid=[50,50], orientation=[theta,80], color=u):

> with(plots):

> bunch := [seq(f(10*k),k=-17..18)]:

> display(bunch, insequence=true, style=PATCHNOGRID, axes=NONE, view=[-1..1,-1..1,-B..B]);

[Maple Plot]

>