RotationGate <- function(t, a){ R= matrix(c(cos(t),sin(t),-sin(t),cos(t)),nrow=2,ncol=2) result <-R%*%a result }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.