Nothing
knitr::opts_chunk$set(echo = TRUE)
library(RQEntangle)
Define the coupled two-level systems:
singlet<- matrix(c(0, sqrt(0.7), sqrt(0.3), 0), byrow = TRUE, nrow = 2)
Then run the Schmidt decompotions:
modes<- schmidt.decompose(singlet)
We can easily print the modes:
modes
And their corresponding entanglement entropy:
entanglement.entropy(modes)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.