R/many.R

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

Defines functions many

Documented in many

#' @export
many <- function(gate,n,...){	
	g <- gate
	if(n > 1)
		for(j in 2:n)
			g <- tensor(g,gate)	

	ket <- list(...)
	if(length(ket) == 0){
		g
	} else{
		g %*% ket[[1]]
	}	
}

Try the QuantumOps package in your browser