with(plots);
a := -Pi;
b := Pi;
implicitplot3d(1/2*(sin(2*x)*cos(y)*sin(z) + sin(2*y)*cos(z)*sin(x) + sin(2*z)*cos(x)*sin(y)) - 1/2*(cos(2*x)*cos(2*y) + cos(2*y)*cos(2*z) + cos(2*z)*cos(2*x)) + 0.15 = 0, x = a .. b, y = a .. b, z = 1/2*a .. 3/2*b, grid = [70, 70, 70], style = patchnogrid, shading = xy, lightmodel = light2);
 

Hi! Is it possible to get more clear mesh plot when the grid is such large? 

Ennep := <u - u^3/3 + u*v^2, v - v^3/3 + v*u^2, u^2 - v^2>

plot3d(Ennep, u = -2 .. 2, v = -2 .. 2, shading = zhue, lightmodel = light1, orientation = [89, 54])

Do you know how I can make contours for this plot? Thanks in advance

to make this image I have just defined

f := (x, y) -> piecewise(y <> 0, 2*arctan((sqrt(y^2 + x^2) - x)/y), 0 < x and y = 0, 0, x < 0 and y = 0, Pi, x = 0 and y = 0, undefinied)

contourplot(f(x, y), x = -1 .. 1, y = -Pi .. Pi, color = black, numpoints = 10000);

ofc I could define z:=x+I*y and take

contourplot(argument(z), x = -1 .. 1, y = -Pi .. Pi, color = black, numpoints = 10000);

but I don't know how to delete this "tail" , I want to show only the ray (I thought that definition of argument in MAPLE is problematic so I redefined it but it doesn't matter)

I need this to create phase portrait and make better visualisation for complex function in MAPLE, so I would like to make and argument of function as two variable function which is modified such that this "tail" disappeared, thanks in advance

plot3d([arctan(-tan(u/4)) + ((cosh(v) - sinh(v))*sin(u))/2, -v/2 + ((cosh(v) - sinh(v))*cos(u))/2, 2*(cosh(v/2) - sinh(v/2))*sin(u/2)], u = 0 .. 6*Pi, v = -1 .. 1, grid = [80, 15], orientation = [50, 79], shading = XYZ, style = patch)

I started to draw minimal surfaces in Maple and I noticed a problem with the parameterization of the function. When I have piecwise function like this arctan(-tan(u/4)) which graph I sent below the 3dplot shows this discontinuity. If it was only 2dplot I could use discont in the code but here I don't see a good solution.

I found these two posts but I can't translate it into a problem with the given parameterization, thank you for all advise.

https://www.mapleprimes.com/questions/200617-Analog-Of--Disconttrue--In--Plot3d

https://www.mapleprimes.com/questions/151216-Maple-Plotting-Discontinuous-Functions

complexplot3d((z - 1)/(z^2 + z + 1), z = -4 - 4*I .. 4 + 4*I, view = [-2 .. 2, -2 .. 2, 0 .. 2], grid = [70, 70], shading = zhue)

How can I change this color of complex plot to take mirror image of my enhanced portrait? I see this is inverse but I don't know the source of this situation. I guess that zhue is indicaded by H = arg(f(z)) L = l(|f(z)|) S=1 in MAPLE but I don't know how to transfer and change this to the second picture coloring. I built the code for the second picture using codes from this post:

https://www.mapleprimes.com/questions/226790-Is-There-Any-Maple-Code-For-The-domain

I want to present this complexplot with the same coloring so thank for all yours advise.