Click to view

Click to view

Const = 0.189231011451213671415;
Shift = 2*Pi + 2;
F[x_, y_] := Cos[x + y];
G[x_, y_] := F[F[x, x], F[y, y]];
H[x_, y_] := Cos[G[x, y]]^2 + Sin[G[y, x]]^2;
J[x_, y_] := Abs[H[x, y]*x*y];
K[x_, y_] := J[x, y]*Cos[x]/Sin[y];
Z[x_, y_] := K[x, x] + Abs[K[y, y]];
Plot3D[K[X, Y], {X, -Pi/2, Pi/2}, {Y, -1, 1}]