IarcASset2pnt.tri {pcds} | R Documentation |
The indicator for the presence of an arc from a point in set S
to the point p
for
Arc Slice Proximity Catch Digraphs (AS-PCDs) - one triangle case
Description
Returns I( for some
), that is, returns 1 if
is in
,
returns 0 otherwise, where
is the AS proximity region for point
.
AS proximity regions are constructed with respect to the triangle, tri
(rv=1,rv=2,rv=3)
,
and vertices of tri
are also labeled as 1,2, and 3, respectively.
Vertex regions are based on the center, in Cartesian coordinates
or
in barycentric coordinates
in the interior of the triangle
tri
or based on circumcenter of tri
;
default is M="CC"
, i.e., circumcenter of tri
.
If p
is not in S
and either p
or all points in S
are outside tri
, it returns 0,
but if p
is in S
, then it always returns 1 (i.e., loops are allowed).
See also (Ceyhan (2005, 2010)).
Usage
IarcASset2pnt.tri(S, p, tri, M = "CC")
Arguments
S |
A set of 2D points whose AS proximity regions are considered. |
p |
A 2D point. The function determines whether |
tri |
Three 2D points, stacked row-wise, each row representing a vertex of the triangle. |
M |
The center of the triangle. |
Value
, that is, returns 1 if
p
is in S
or inside for at least
one
in
S
, returns 0 otherwise, where AS proximity region is constructed in tri
Author(s)
Elvan Ceyhan
References
Ceyhan E (2005).
An Investigation of Proximity Catch Digraphs in Delaunay Tessellations, also available as technical monograph titled Proximity Catch Digraphs: Auxiliary Tools, Properties, and Applications.
Ph.D. thesis, The Johns Hopkins University, Baltimore, MD, 21218.
Ceyhan E (2010).
“Extension of One-Dimensional Proximity Regions to Higher Dimensions.”
Computational Geometry: Theory and Applications, 43(9), 721-748.
Ceyhan E (2012).
“An investigation of new graph invariants related to the domination number of random proximity catch digraphs.”
Methodology and Computing in Applied Probability, 14(2), 299-334.
See Also
IarcAStri
, IarcASset2pnt.tri
, and IarcCSset2pnt.tri
Examples
A<-c(1,1); B<-c(2,0); C<-c(1.5,2);
Tr<-rbind(A,B,C);
n<-10
set.seed(1)
Xp<-runif.tri(n,Tr)$gen.points
S<-rbind(Xp[1,],Xp[2,]) #try also S<-c(1.5,1)
M<-as.numeric(runif.tri(1,Tr)$g) #try also M<-c(1.6,1.2)
IarcASset2pnt.tri(S,Xp[3,],Tr,M)
S<-rbind(Xp[1,],Xp[2,],Xp[3,],Xp[5,])
IarcASset2pnt.tri(S,Xp[3,],Tr,M)
IarcASset2pnt.tri(S,Xp[6,],Tr,M)
S<-rbind(c(.1,.1),c(.3,.4),c(.5,.3))
IarcASset2pnt.tri(S,Xp[3,],Tr,M)
IarcASset2pnt.tri(c(.2,.5),Xp[2,],Tr,M)
IarcASset2pnt.tri(Xp,c(.2,.5),Tr,M)
IarcASset2pnt.tri(Xp,Xp[2,],Tr,M)
IarcASset2pnt.tri(c(.2,.5),c(.2,.5),Tr,M)
IarcASset2pnt.tri(Xp[5,],Xp[2,],Tr,M)
S<-rbind(Xp[1,],Xp[2,],Xp[3,],Xp[5,],c(.2,.5))
IarcASset2pnt.tri(S,Xp[3,],Tr,M)
P<-c(.4,.2)
S<-Xp[c(1,3,4),]
IarcASset2pnt.tri(Xp,P,Tr,M)
IarcASset2pnt.tri(S,P,Tr,M)
IarcASset2pnt.tri(rbind(S,S),P,Tr,M)