pcds (version 0.1.2)

re.bastriCM: The index of the \(CM\)-edge region in a basic triangle that contains a point

Description

Returns the index of the edge whose region contains point, pt, in the basic triangle \(T_b=T(A=(0,0),B=(1,0),C=(c_1,c_2)\) where \(c_1\) is in \([0,1/2]\), \(c_2>0\) and \((1-c_1)^2+c_2^2 \le 1\) with edge regions based on center of mass \(CM=(A+B+C)/3\).

Edges are labeled as 3 for edge \(AB\), 1 for edge \(BC\), and 2 for edge \(AC\). If the point, pt, is not inside tri, then the function yields NA as output. Edge region 1 is the triangle \(T(B,C,CM)\), edge region 2 is \(T(A,C,CM)\), and edge region 3 is \(T(A,B,CM)\).

Any given triangle can be mapped to the basic triangle by a combination of rigid body motions (i.e., translation, rotation and reflection) and scaling, preserving uniformity of the points in the original triangle. Hence basic triangle is useful for simulation studies under the uniformity hypothesis.

See also (ceyhan:Phd-thesis,ceyhan:comp-geo-2010,ceyhan:mcap2012,ceyhan:arc-density-CS;textualpcds).

Usage

re.bastriCM(pt, c1, c2)

Arguments

pt

A 2D point for which \(CM\)-edge region it resides in is to be determined in the basic triangle \(T_b\).

c1, c2

Positive real numbers which constitute the upper vertex of the basic triangle (i.e., the vertex adjacent to the shorter edges of \(T_b\)); \(c_1\) must be in \([0,1/2]\), \(c_2>0\) and \((1-c_1)^2+c_2^2 \le 1\).

Value

A list with three elements

re

Index of the \(CM\)-edge region that contains point, pt in the basic triangle \(T_b\)

tri

The vertices of the triangle, where row labels are \(A=(0,0)\), \(B=(1,0)\), and \(C=(c_1,c_2)\) with edges are labeled as 3 for edge \(AB\), 1 for edge \(BC\), and 2 for edge \(AC\).

desc

Description of the edge labels

References

See Also

re.triCM, re.tri.cent, re.bastri.cent, reTeCM, and redge.triCM

Examples

# NOT RUN {
c1<-.4; c2<-.6
P<-c(.4,.2)
re.bastriCM(P,c1,c2)

c1<-.5; c2<-.8
P<-c(.4,.2)
re.bastriCM(P,c1,c2)

P<-c(.8,.2)
re.bastriCM(P,c1,c2)

P<-c(1.8,.2)
re.bastriCM(P,c1,c2)

c1<-.4; c2<-.6
A<-c(0,0);B<-c(1,0);C<-c(c1,c2);
Tb<-rbind(A,B,C)
CM<-(A+B+C)/3

re.bastriCM(A,c1,c2)
re.bastriCM(B,c1,c2)
re.bastriCM(C,c1,c2)
re.bastriCM(CM,c1,c2)

n<-10  #try also n<-20
dat<-runif.bastri(n,c1,c2)$g

re<-vector()
for (i in 1:n)
  re<-c(re,re.bastriCM(dat[i,],c1,c2)$re)
re

Xlim<-range(Tb[,1],dat[,1])
Ylim<-range(Tb[,2],dat[,2])
xd<-Xlim[2]-Xlim[1]
yd<-Ylim[2]-Ylim[1]

plot(Tb,xlab="",ylab="",axes=TRUE,pch=".",xlim=Xlim+xd*c(-.05,.05),ylim=Ylim+yd*c(-.05,.05))
points(dat,pch=".")
polygon(Tb)
L<-Tb; R<-matrix(rep(CM,3),ncol=2,byrow=TRUE)
segments(L[,1], L[,2], R[,1], R[,2], lty=2)
text(dat,labels=factor(re))

txt<-rbind(Tb,CM)
xc<-txt[,1]+c(-.03,.03,.02,0)
yc<-txt[,2]+c(.02,.02,.02,-.04)
txt.str<-c("A","B","C","CM")
text(xc,yc,txt.str)

# }