View source: R/ArcSliceUGFunctions.R
IedgeAStri | R Documentation |
Returns I(
p1p2
is an edge
in the underlying or reflexivity graph of AS-PCDs )
for points p1
and p2
in a given triangle.
More specifically, when the argument ugraph="underlying"
,
it returns the edge indicator for the AS-PCD underlying graph,
that is, returns 1 if p2
is
in N_{AS}(p1)
**or** p1
is in N_{AS}(p2)
,
returns 0 otherwise.
On the other hand,
when ugraph="reflexivity"
, it returns
the edge indicator for the AS-PCD reflexivity graph,
that is, returns 1 if p2
is
in N_{AS}(p1)
**and** p1
is in N_{AS}(p2)
,
returns 0 otherwise.
In both cases AS proximity region is constructed
with respect to the triangle tri
and
vertex regions are based on the center, M=(m_1,m_2)
in Cartesian coordinates
or M=(\alpha,\beta,\gamma)
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 p1
and p2
are distinct
and either of them are outside tri
, it returns 0,
but if they are identical,
then it returns 1 regardless of their locations
(i.e., it allows loops).
See also (\insertCiteceyhan:Phd-thesis,ceyhan:stamet2016;textualpcds.ugraph).
IedgeAStri(p1, p2, tri, M = "CC", ugraph = c("underlying", "reflexivity"))
p1 |
A 2D point whose AS proximity region is constructed. |
p2 |
A 2D point. The function determines
whether there is an edge from |
tri |
A |
M |
The center of the triangle. |
ugraph |
The type of the graph based on AS-PCDs,
|
Returns 1 if there is an edge between points p1
and p2
in the underlying or reflexivity graph of AS-PCDs
in a given triangle tri
, and 0 otherwise.
Elvan Ceyhan
IedgeASbasic.tri
, IedgePEtri
,
IedgeCStri
and IarcAStri
#\donttest{
A<-c(1,1); B<-c(2,0); C<-c(1.5,2);
Tr<-rbind(A,B,C);
M<-as.numeric(pcds::runif.tri(1,Tr)$g)
n<-3
set.seed(1)
Xp<-pcds::runif.tri(n,Tr)$g
IedgeAStri(Xp[1,],Xp[3,],Tr,M)
IedgeAStri(Xp[1,],Xp[3,],Tr,M,ugraph = "reflexivity")
set.seed(1)
P1<-as.numeric(pcds::runif.tri(1,Tr)$g)
P2<-as.numeric(pcds::runif.tri(1,Tr)$g)
IedgeAStri(P1,P2,Tr,M)
IedgeAStri(P1,P2,Tr,M,ugraph="r")
#}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.