Universidade Federal da Paraíba

Programa de Pós-Graduação em Economia do Setor Público

# Criar sequências de 100 números ordenados entre 0 e 10
options(OutDec=",")
x <- y <- seq(0,10,length=100)

# Definir função: f(x,y) = x^2 + y^2
f <- function(x1,x2) {x1^2+x2^2}
z <- outer(x, y, FUN="f")

# Desenhar gráfico
persp(x, y, z, shade=0.5, d=2, theta=130,col=2,border = NA,ticktype="detailed",
      xlab="x",ylab="y",zlab="f(x,y)",phi=5, cex.axis=0.8,cex.lab=0.8, cex.main=0.9,
      main="Função de duas variáveis")