R/T1Gate.R

T1Gate <- function(a){
    T1=matrix(c(1,0,0,exp(-1i*pi/4)),nrow=2,ncol=2)
    result <-T1%*%a
    result

}
tvganesh/QCSim documentation built on June 1, 2019, 2:57 a.m.