#Codigo
x=seq(-3,3,length=50)
y=x
z1=outer(x, y, function(x,y){x*y*sin(x^2+y^2)})
for(i in 1:1439){
persp(x, y, z1, theta =i/4, phi =i/8,
expand = 0.5,col = rainbow(i),
ltheta = 120, shade = 0.75,
ticktype = "detailed",
xlab = "X", ylab = "Y", zlab = "Z")
title(sub="f(x,y)=x*y*sin(x^2+y^2)")
title(main = "f(x,y)=x*y*sin(x^2+y^2)")
}
Si hay problemas en Rstudio, probar directamente en R
###################################################
x=seq(-3,3,length=50)
y=x
z1=outer(x, y, function(x,y){x*y*sin(x^2+y^2)})
for(i in 1:1439){
persp(x, y, z1, theta =i/4, phi =i/8,
expand = 0.5,col = rainbow(i),
ltheta = 120, shade = 0.75,
ticktype = "detailed",
xlab = "X", ylab = "Y", zlab = "Z")
title(sub="f(x,y)=x*y*sin(x^2+y^2)")
title(main = "f(x,y)=x*y*sin(x^2+y^2)")
}
###################################################