Displaying 1 result from an estimated 1 matches for "showsurface".
2011 Feb 16
2
tikzDevice compiling problem
...a
setwd('/Users/fabiangarcia/Documents/R')
# El siguiente programa produce el archivo tex
tikz('CobbGRAF.tex', standAlone = TRUE, width=5, height=5)
# La gr?fica de la funci?n de utilidad
f = function(x, y) ((y)^1*(x)^1)
x = seq(0,5,len=40)
y = seq(0,5,len=40)
z = outer(x, y, f)
showsurface = function(x, y, z)
persp3d(x,y,z, col="blue", alpha=0.3, axes=
F)+{
contours = contourLines(x,y,z)
for (i in 1:length(contours)) {
with(contours[[i]], lines3d(x, y, level, col="darkred"))
}
}
open3d()
showsurface(x,y,z)
# Cierro el device
dev.off()
# Compilo el...