pcds (version 0.1.1)

as.bastri: The labels of the vertices of a triangle in the (unscaled) basic triangle form

Description

Labels the vertices of triangle, tri, as ABC so that AB is the longest edge, BC is the second longest and AC is the shortest edge (the order is as in the basic triangle). The new triangle \(T(A,B,C)\) is unscaled, i.e., the longest edge AB may not be of unit length.

The basic triangle is \(T_b=T((0,0),(1,0),(c_1,c_2))\) where c1 is in \([0,1/2]\), \(c_2>0\) and \((1-c_1)^2+c_2^2 \le 1\)

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 uniformness hypothesis.

Usage

as.bastri(tri)

Arguments

tri

Three 2D points, stacked row-wise, each row representing a vertex of the triangle.

Value

A list with two elements

tri

The vertices of the triangle stacked row-wise and labeled row-wise as A, B, C.

desc

Description of the edges based on the vertices, i.e., "Edges (in decreasing length are) AB, BC, and AC".

orig.order

Row order of the input triangle, tri, when converted to the scaled version of the basic triangle

Examples

# NOT RUN {
c1<-.4; c2<-.6
A<-c(0,0); B<-c(1,0); C<-c(c1,c2);

as.bastri(rbind(A,B,C))

as.bastri(rbind(B,C,A))

as.bastri(rbind(B,A,C))
as.bastri(rbind(A,C,B))

A<-c(1,1); B<-c(2,0); C<-c(1.5,2);
as.bastri(rbind(A,B,C))
as.bastri(rbind(A,C,B))
as.bastri(rbind(B,A,C))

A<-runif(2); B<-runif(2); C<-runif(2)
as.bastri(rbind(A,B,C))

dat.fr<-data.frame(a=rbind(A,B,C))
as.bastri(dat.fr)
# }
# NOT RUN {
# }