/* Incluido em 'gnuplot/show3D.gp' função usada em prova de ICC para integral de MC */

gnuplot/show3D.gp

 #!/usr/bin/gnuplot -c
 ## set encoding iso_8859_15
 set encoding utf
-set terminal qt persist
+## set terminal qt persist
 set grid
 set style data point
 set style function dots
@@ -28,8 +28,6 @@ f(x,y) = cos(x) * cos(y) * exp(-(x - pi)**2 - (y - pi)**2)
 
 splot f(x,y)
 
-pause -1
-
 #
 # Styblinski-Tang
 #
@@ -47,5 +45,22 @@ f(x,y) = 80 + (x**4 - 16*(x**2) + 5*x + y**4 - 16*(y**2) + 5*y)/2
 
 splot f(x,y)
 
+#
+# Função qualquer
+#
+set xlabel  "X"
+set ylabel  "Y"
+set zlabel  "Z"
+set title   "Função qualquer"
+set terminal qt 2 title "Função qualquer"
+
+set xrange [-10000:10000]; set yrange [-10000:10000];
+set style function dots
+set isosamples 150,150;
+
+f(x,y) = 10e5 * x**2 + y**2 - (x**2 + y**2)**2 + 10e-5 * (x**2 + y**2)**4
+
+splot f(x,y)
+
 pause -1