search for: bg3d

Dear all, I have a question about the plotting of the dynamical orbit by using rgl. My code is as follows: open3d() par3d(cex=2) bg3d("white") for(i in 1:out.length){ ind<-which plot3d(x[1:i],y[1:i],out[,"z"][1:i],xlim=c(-10,10),ylim=c(-10,10),zlim=c(-10,10),col="red",cex=2) Sys.sleep(0.0001) } ,where x,y,out[,"z"] are the position of the object in different time. I would like to show th...

...quot;) for the first argument. The sphere from the second argument appear as flat dark circles. Also the text3d() command only seems to work for a couple of the positions, with no text added in most cases. Could anyone offer any suggestions? g.pca <- prcomp(RtG , retx = TRUE) scale <- 0.4 bg3d("black") amp <- 6 zlim <- amp*range(z) zlen <- (zlim[2] - zlim[1])*100 colorlut <- terrain.colors(zlen) # height color lookup table col <- colorlut[ ((z*amp)-zlim[1])*100+1 ] # assign colors to heights surface3d(x,y,z*amp,color=col) for (i in 1:30) { for (i in 1) {...

I've written a very simple bit of code to plot a trajectory using rgl: x <- (c(0,-5.947,-11.496,-16.665,-21.474,-25.947,-30.116,-34.017,-37.684,-41.148,-44.435,-47.568,-50.567,-53.448,-56.223,-58.906)) y <- (c(0,33.729,65.198,94.514,121.784,147.151,170.797,192.920,213.717,233.360,252.003,269.774,286.781,303.117,318.858,334.071)) z <-

...if we use more layers than one, could we change the function in a way that in the final plot only the outmost layer is drawn (the inner layers omitted)? Best regards, Atte Tenkanen function (vectors, Div = 40, Layers = 3, DrawAxes = FALSE) { open3d(windowRect = c(100, 100, 800, 800)) bg3d("white") Cx = vectors[, 1] Cy = vectors[, 2] Cz = vectors[, 3] Cr <- kde3d(x = Cx, y = Cy, z = Cz, n = Div) th <- seq(min(Cr$d), max(Cr$d), len = Layers + 2) ramp <- colorRamp(c("white", "yellow", "red")) colo <-...

Dear all, The documentation on the function open3d in the rgl package, reads: open3d opens a new rgl device, and sets the parameters as requested. I want the new rgl device (window) to be sized and positioned in a specific place on my screen. So, I try to set the "windowRect" parameter as follows: > library("rgl") > open3d(windowRect=c(100,100,500,500))

Hello, Is it possible to draw level lines on the surface of a bivariate function? In the following example, to draw surface and levels lines for a multivariate normal law, I use persp, trans3d, contourLines and lines, but if the lines are correctly drawn, some parts of them are, of course, visible even if they are drawn on a non visible "face". Any suggestion to avoid this problem

Hola Alguien me podría decir como hacer una grafica del tipo persp() de la densidad de una distribucion normal bivariante estandarzada con correlacion 0.5?? gracias [[alternative HTML version deleted]]

Hello, I requested help a couple of weeks ago creating a dipole field in R but receieved no responses. Eventually I opted to create a 3d sinusoidal plot and concatenate this with its inverse as a means for a "next best" situation. It seems that this isn't sufficient for my needs and I'm really after creating a continuous 3d gaussian mesh with a "positive" and

...nst[2], range[1]) p2 <- c(const[1], const[2], range[2]) }, stop("coding error: focus not supported", focus)) list(p1, p2) } # --------------------------------- # step 00 : now plot the data # --------------------------------- device.no <- open3d() bg3d(background.color) # regarding points: use "size = 10" if 'type' not set plot3d(data[vecs], main = main, xlab = xlab, ylab = ylab, zlab = zlab, col = point.color, type = "s", # CAUTION: 'type' n...