spiral3d: Seashell cone in 3d
In KIT-IfGG/pets: Pet Models

Usage Arguments Author(s) See Also Examples

1	spiral3d(phi, R=1, a=1, b=1)

`phi`
`R`
`a`
`b`

Klara Dolos

seashell

phi <- seq(0,100, len=1000)
R <- 1/100
a <- 1
b <- 1
spiral <- spiral3d(phi=phi, R=R, a=a, b=a)

library(scatterplot3d)
x11(width=12)
par(mfrow=c(1,2), mar=c(4,4,4,1))
plot(spiral$x, spiral$y, type="l", asp=1, main="2D Spirale", xlab="x", ylab="y", col="steelblue4", lwd=1.5)
scatterplot3d(spiral$x, spiral$y, spiral$z, type="l", asp=1, main="3D Schneckenhaus", xlab="x", ylab="y", zlab="z", color="steelblue4", lwd=1.5)