n <- 10 # 10 spin sites
mySites <- genConfig1D(n) # Generate sites
# only short-range part
isStep1D(1.0, mySites, 1.0, 0.0, 1) # Metropolis
isStep1D(1.0, mySites, 1.0, 0.0, 2) # Glauber
Run the code above in your browser using DataLab