Last chance! 50% off unlimited learning
Sale ends in
Returns the domination number and a minimum dominating set of PE-PCD whose vertices are the data
points in Xp
in the multiple triangle case and the Delaunay triangles based on Yp
points.
PE proximity regions are defined with respect to the Delaunay triangles based on Yp
points with
expansion parameter M
is one of the 3 centers that renders the asymptotic distribution of domination number
to be non-degenerate for a given value of r
in M
is center of mass for
Convex hull of Yp
is partitioned by the Delaunay triangles based on Yp
points
(i.e., multiple triangles are the set of these Delaunay triangles whose union constitutes the
convex hull of Yp
points). Loops are allowed for the domination number.
See (ceyhan:Phd-thesis,ceyhan:masa-2007,ceyhan:dom-num-NPE-Spat2011,ceyhan:mcap2012;textualpcds) more on the domination number of PE-PCDs. Also see (okabe:2000,ceyhan:comp-geo-2010,sinclair:2016;textualpcds) for more on Delaunay triangulation and the corresponding algorithm.
PEdomMTnd(Xp, Yp, r)
A list
with two elements
Domination number of the PE-PCD whose vertices are Xp
points. PE proximity regions are
constructed with respect to the Delaunay triangles based on the Yp
points with expansion parameter
A minimum dominating set of the PE-PCD whose vertices are Xp
points
A set of 2D points which constitute the vertices of the PE-PCD.
A set of 2D points which constitute the vertices of the Delaunay triangles.
A positive real number which serves as the expansion parameter in PE proximity region;
must be
Elvan Ceyhan
PEdomtri
, PEdom.tetra
, dom.exact
, and dom.greedy
#nx is number of X points (target) and ny is number of Y points (nontarget)
nx<-20; ny<-4; #try also nx<-40; ny<-10 or nx<-1000; ny<-10;
r<-1.5 #try also r<-2
set.seed(1)
Xp<-cbind(runif(nx,0,1),runif(nx,0,1))
Yp<-cbind(runif(ny,0,1),runif(ny,0,1))
PEdomMTnd(Xp,Yp,r)
PEdomMTnd(Xp,Yp,r=1.4)
r<-1.5 #try also #r<-2
PEdomMTnd(Xp,Yp,r) #this may be different due to random selection of the center for r in (1,1.5)
PEdomMTnd(Xp,Yp[1:3,],r)
PEdomMTnd(Xp,rbind(Yp,Yp),r)
dat.fr<-data.frame(a=Xp)
PEdomMTnd(dat.fr,Yp,r)
dat.fr<-data.frame(a=Yp)
PEdomMTnd(Xp,dat.fr,r)
Run the code above in your browser using DataLab