Mathematica の式(c)

Plot3D[f4[x, y, 0, 0, 1, 1, 0.7], {x, -3, 3}, {y, -3, 3}, PlotPoints -> 30, 
  PlotRange -> All, ViewPoint -> {0.0, -2.4, 2.}]