Sect2vex: Intersect 2 Vectors
In geophys: Geophysics, Continuum Mechanics, Gravity Modeling

Description Usage Arguments Details Value Author(s) See Also Examples

Finder intersection point of two vectors in a plane

1	Sect2vex(V1, V2)

`V1`	vector of 2 points
`V2`	vector of 2 points

if vectors are parallel return NULL

x-y location of intersection

Jonathan M. Lees<jonathan.lees@unc.edu>

AXB.prod

v1 = matrix(runif(4), ncol=2)
v2 =  matrix(runif(4), ncol=2)


pt = Sect2vex(v1, v2)

plot(c(v1[,1],v2[,1],pt[1] ) , c(v1[,2],v2[,2],pt[2]) , asp=1)

arrows(v1[1,1], v1[1,2], v1[2,1], v1[2,2])
arrows(v2[1,1], v2[1,2], v2[2,1], v2[2,2])

points(pt[1], pt[2], col='red', cex=2, pch=3)