阿基米德螺旋上的等距點

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')