R/cprod_SM.R

Defines functions cprod_SM

Documented in cprod_SM

cprod_SM <- function(u, v, h = 'right'){

	# CROSS PRODUCT OF TWO VECTORS IN THREE-DIMENSIONAL SPACE
	r <- c(u[2]*v[3] - u[3]*v[2], u[3]*v[1] - u[1]*v[3], u[1]*v[2] - u[2]*v[1])

	r
}

Try the StereoMorph package in your browser

Any scripts or data that you put into this service are public.

StereoMorph documentation built on May 25, 2022, 5:06 p.m.