R/CNOT3_01.R

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

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