conicfit (version 1.0.4)

calculateCircle: Generate points from a circle

Description

calculateCircle generates points from a circle with many options, equally spaced, randomly spaced, with noise added to the radius or limited to a segment of angle alpha.

Usage

calculateCircle(x, y, r, steps=50,sector=c(0,360),randomDist=FALSE, 
randomFun=runif, noiseFun = NA, ...)

Arguments

x

center point x

y

center point y

r

radius

steps

number of points

sector

limited circular sector

randomDist

logical, TRUE = randomly spaced

randomFun

random function for the position of the points in the circle

noiseFun

random function for the noise

...

optional parameters to pass to randomFun

Value

points

array n x 2 of point coordinates.

Examples

## Not run: 
# # 100 points from a circle at c(0,0) with radius=200
# a<-calculateCircle(0,0,200,100)
# plot(a[,1],a[,2],xlim=c(-250,250),ylim=c(-250,250))
# par(new=T)
# # 12 points from a circle at c(0,0) with radius=190, points between 0 and 90 
# #degrees
# a<-calculateCircle(0,0,190,12,c(0,90))
# plot(a[,1],a[,2],xlim=c(-250,250),ylim=c(-250,250),col='red')
# par(new=T)
# # 12 points from a circle at c(0,0) with radius=180, points between 0 and 180 
# #degrees, uniform random distribution
# a<-calculateCircle(0,0,180,12,c(0,180),TRUE)
# plot(a[,1],a[,2],xlim=c(-250,250),ylim=c(-250,250),col='green')
# par(new=T)
# # 12 points from a circle at c(0,0) with radius=170, points between 0 and 180 
# #degrees, normal random distribution
# a<-calculateCircle(0,0,170,12,c(0,180),TRUE,rnorm)
# plot(a[,1],a[,2],xlim=c(-250,250),ylim=c(-250,250),col='blue')
# par(new=T)
# # 12 points from a circle at c(0,0) with radius=200, points between 0 and 180 
# #degrees, positioned by uniform random distribution, noise=normal random 
# #distribution with sd=10
# a<-calculateCircle(0,0,200,12,c(180,360),TRUE,noiseFun=function(x) 
# (x+rnorm(1,mean=0,sd=10)))
# plot(a[,1],a[,2],xlim=c(-250,250),ylim=c(-250,250),col='orange')
# ## End(Not run)