R/measurement.R

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

measurement <- function(a) {
     d <- dim(a)
     v <- NULL
     for(i in 1:d[1] ){
         v[i] <- Mod(a[i,1])^2
     }
     l = length(v)
     w = as.data.frame(v)
     x = t(w)
     if(l == 2){
         colnames(x) <- c("0","1")
     } else if (l == 4){
         colnames(x) <- c("00","01","10","11")
     } else if (l == 4){
         colnames(x) <- c("000","001","010","011","100","101","110","111")
     }
     x

}