Idom.numCSup.bnd.tri {pcds} | R Documentation |
Indicator for an upper bound for the domination number of Central Similarity Proximity Catch Digraph (CS-PCD) by the exact algorithm - one triangle case
Description
Returns domination number of CS-PCD is less than or equal to
k
where the vertices of the CS-PCD are the data points
Xp
,
that is, returns 1 if the domination number of CS-PCD is less than the prespecified value k
, returns 0
otherwise. It also provides the vertices (i.e., data points) in a dominating set of size k
of CS-PCD.
CS proximity region is constructed with respect to the triangle tri
with
expansion parameter
and edge regions are based on the center
in Cartesian coordinates or
in barycentric coordinates in the interior of
tri
;
default is i.e., the center of mass of
tri
.
Edges of tri
, ,
,
, are also labeled as 3, 1, and 2, respectively.
Loops are allowed in the digraph.
See also (Ceyhan (2012)).
Caveat: It takes a long time for large number of vertices (i.e., large number of row numbers).
Usage
Idom.numCSup.bnd.tri(Xp, k, tri, t, M = c(1, 1, 1))
Arguments
Xp |
A set of 2D points which constitute the vertices of CS-PCD. |
k |
A positive integer to be tested for an upper bound for the domination number of CS-PCDs. |
tri |
A |
t |
A positive real number which serves as the expansion parameter in CS proximity region in the
triangle |
M |
A 2D point in Cartesian coordinates or a 3D point in barycentric coordinates which serves as a
center in the interior of the triangle |
Value
A list
with two elements
domUB |
The upper bound |
Idom.num.up.bnd |
The indicator for the upper bound for domination number of CS-PCD being the
specified value |
ind.domset |
The vertices (i.e., data points) in the dominating set of size |
Author(s)
Elvan Ceyhan
References
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
Idom.numCSup.bnd.std.tri
, Idom.num.up.bnd
, Idom.numASup.bnd.tri
,
and dom.num.exact
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
M<-as.numeric(runif.tri(1,Tr)$g) #try also M<-c(1.6,1.0)
t<-.5
Idom.numCSup.bnd.tri(Xp,1,Tr,t,M)
for (k in 1:n)
print(c(k,Idom.numCSup.bnd.tri(Xp,k,Tr,t,M)))