R/ket.R

In QuantumOps: Performs Common Linear Algebra Operations Used in Quantum Computing and Implements Quantum Algorithms

#generate a normalized ket (column vector) with arbitrary no of states
#' @export
ket <- function(...){
	coeff <- as.complex(list(...))
	if(Im(coeff[1]) > 0)
		coeff <- coeff / coeff[1]
	coeff <- coeff/sqrt(sum(abs(coeff)^2))
	if(Re(coeff[1]) < 0)
		coeff <- coeff * -1
	matrix(coeff,ncol=1)
}