R/CNOT3_20.R

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

CNOT3_20 <- function(a){
    cnot3_20=matrix(c(1,0,0,0,0,0,0,0,
                      0,0,0,0,0,1,0,0,
                      0,0,1,0,0,0,0,0,
                      0,0,0,0,0,0,0,1,
                      0,0,0,0,1,0,0,0,
                      0,1,0,0,0,0,0,0,
                      0,0,0,0,0,0,1,0,
                      0,0,0,1,0,0,0,0),nrow=8,ncol=8)


    result = cnot3_20 %*% a
    result
}