#
# Ising Model MC functions
# Utility functions
# (c) 2013 by Dr.Mehmet Suzen
# GPLv3 or higher
#
#
# Bexter 1982, eq 2.1.9
transferMatrix <- function(ikBt, J, H) {
K <- J*ikBt
h <- H*ikBt
tm <- c(exp(K+h),exp(-K), exp(-K), exp(K-h))
tm <- matrix(tm, 2, 2)
list(tm=tm, evalues=eigen(tm)$values)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.