R/Toffoli.R

In indrag49/QGameTheory: Quantum Game Theory Simulator

##############################################################################
#                                                                            #
#                         TOFFOLI (CCNOT) GATE                               #
#                                                                            #
##############################################################################

#' @title
#' Toffoli gate
#'
#' @description
#' This function operates the Toffoli gate on a conformable input matrix or a vector.
#'
#' @param n a vector/matrix
#'
#' @usage
#' Toffoli(n)
#'
#' @return A matrix or a vector after performing the Toffoli gate operation on a conformable input matrix or a vector.
#'
#' @references
#' \url{https://en.wikipedia.org/wiki/Quantum_logic_gate}\cr
#' \url{http://www2.optics.rochester.edu/~stroud/presentations/muthukrishnan991/LogicGates.pdf}\cr
#'
#' @examples
#' init()
#' Toffoli(Q$I8)
#' Toffoli(Q$Q010)
#'
#' @export
#'


Toffoli <- function(n) {
  x <- Q$I8
  t <- x[7,]
  x[7,] <- x[8,]
  x[8,] <- t
  return (x %*% n)
}