Skip to content
Prev 242476 / 398500 Next

how to draw manifold?

Thanks, Dennis.   Here's an enhanced version:

  z <- seq(-10, 10, 0.1)
   zm<-cbind(z,z,z,z,z,z,z,z,z,z)

ym<-matrix(nr=201,nc=10)
for (i in seq(1,201)) {
	for (j in seq(1,10)) ym[i,j]<-j/10*sin(zm[i,1])}

xm<-matrix(nr=201,nc=10)
for (i in seq(1,201)) {
	for (j in seq(1,10)) xm[i,j]<-j/10*cos(zm[i,1])}

	
scatterplot3d(as.vector(t(xm)), as.vector(t(ym)), as.vector(t(zm)), main 
= 'Helix', pch = ".",type='l')


 From there I can draw a few helical lines by modifying your original 
code (for different radii), and end up with a pretty decent "mesh surface."

Carl
On 11/20/10 12:03 PM, Dennis Murphy wrote: