R/CNOT3_21.R

In tvganesh/QCSim: This package is a Quantum Computing Simulator

CNOT3_21 <- function(a){
    I4=matrix(c(1,0,0,0,
                0,1,0,0,
                0,0,1,0,
                0,0,0,1),nrow=4,ncol=4)
    I=matrix(c(1,0,0,1),nrow=2,ncol=2)
    l = TensorProd(I,CNOT2_10(I4))
    result = l %*% a
    result
}