Gráfico 3D

domingo, 7 de outubro de 2007

Essa foi a 1ª questão da 3ª prova, aplicada pelo Prof Adilson, no segundo semestre de 2006.
Gabarito.



CÓDIGOS PARA UTILIZAÇÃO NO SOFTWARE R
x <- seq(0, 1.5, length = 30)
y <- seq(0, 1.5, length = 30)

#z.f<-function(x,y){y<--15 - 1 * x - 0.5 * y + .5*x^2 + .5*y^2 -.3*x*y}
z.f<-function(x,y){y<--15 - 1 * x - 0.5 * y}
z <- outer(x, y, z.f)

persp(x,y,z, theta = -35, phi = 10, expand = 0.5, col = "gray",
xlab = "X", ylab = "Y", zlab = "Resposta",scale = T, ticktype = "detailed",xlim=c(0,1.5))

0 Observações: