The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
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:
We can easily print the modes:
modes
## [[1]]
## [[1]]$eigenvalue
## [1] 0.7
##
## [[1]]$sys1vector
## [1] -1 0
##
## [[1]]$sys2vector
## [1] 0 -1
##
##
## [[2]]
## [[2]]$eigenvalue
## [1] 0.3
##
## [[2]]$sys1vector
## [1] 0 -1
##
## [[2]]$sys2vector
## [1] -1 0
And their corresponding entanglement entropy:
entanglement.entropy(modes)
## [1] 0.6108643
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.