R/innerProduct.R

innerProduct <- function(a,b){
    a1= Conj(a)
    result = t(a1) %*% b
    t = pi/acos(result)
    theta = 180/t
    theta
}
tvganesh/QCSim documentation built on June 1, 2019, 2:57 a.m.