Guriguri 3Curves

R source

a=c(2,3,4)
b=c(2,4,6)
library(rgl)
par3d(windowRect=c(100,100,800,800))
rgl.bg(color=c("lightcyan"))
x1=0.1;y1=0.1;z1=0.1
plot3d(x1, y1,z1,xlim=c(-10,10),ylim=c(-10,10),zlim=c(-10,10))
for(i in 1:3){
t=seq(-7,7,by=0.02)
x=a[i]*cos(t)
y=b[i]*sin(2*t)
z=x*y/2+a[i]-b[i]
lines3d(x,y,z,xlim=c(-10,10),ylim=c(-10,10),zlim=c(-10,10),col=i)
}

You must enable Javascript to view this page properly.

Drag mouse to rotate model. Use mouse wheel or middle button to zoom it.
Object written from rgl 0.97.0 by writeWebGL.