阿基米德螺旋上的等距点

Question

我知道如何绘制阿基米德螺旋线

a <- 20 #distance from origin
b <- 1 #distance between loops
maxtheta <- 20*pi  #10 times round the loop

theta <- seq(0,maxtheta,0.01) #my sequence of angles
r <- a + b*theta # equation for the spiral

df <- data.frame(x=r*cos(theta), y=r*sin(theta)) # convert points to Cartesian coordinates
#then plot them to get spiral

此外，我还想在螺旋上绘制均匀分布的点，但到目前为止我的点总是不等间距。

Answer 1

您可以使用模块化数学系统地选择行。

plot(df, pch=20, cex=.1, asp=1)
points(df[seq_len(nrow(df)) %% 50 == 0, ], pch=20, col='red')