saddle = function(x,y){ -xx + yy }

x = y = seq(-1, +1, length = 100)

z = outer(x,y,saddle)

persp(x,y,z)