R/CNOT3_10.R

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

CNOT3_10 <- 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(CNOT2_10(I4),I)
    result = l %*% a
    result
}