2014-06-02 23:49:28 +00:00
|
|
|
# TODO: Add comment
|
|
|
|
|
#
|
|
|
|
|
# Author: francois
|
|
|
|
|
###############################################################################
|
|
|
|
|
|
2014-07-06 16:06:54 +00:00
|
|
|
ellipse_param <- function(t,X,Y,a,b,phi)
|
|
|
|
|
{
|
|
|
|
|
cbind(X + a * cos(t)*cos(phi) - b*sin(t)*sin(phi),Y + a *
|
|
|
|
|
cos(t)*sin(phi) + b*sin(t)*cos(phi))
|
|
|
|
|
}
|
2014-06-02 23:49:28 +00:00
|
|
|
|
2014-07-06 16:06:54 +00:00
|
|
|
dans_ellipse_param <- function(coord,param)
|
|
|
|
|
{
|
|
|
|
|
x <- coord[,1]
|
|
|
|
|
y <- coord[,2]
|
|
|
|
|
xc <- param[1]
|
|
|
|
|
yc <- param[2]
|
|
|
|
|
a <- param[3]
|
|
|
|
|
b <- param[4]
|
|
|
|
|
phi <- param[5]
|
|
|
|
|
(((x-xc)*cos(phi)-(y-yc)*sin(phi))^2/a^2 +
|
|
|
|
|
((x-xc)*sin(phi)+(y-yc)*cos(phi))^2/b^2) <= 1
|
|
|
|
|
}
|
