powered by
Constant normalizing wrapped gaussian
kgauss(sigma, a)
A real number. Is the standard deviation of the wrapped gaussian.
A real number. The unit cell side length.
A real number, the multiplicative constant normalizing the wrapped gaussian atom so that the area under the curve is equal to 1.
# NOT RUN { Z <- 16 # Sulphur atom sigma <- 0.05*sqrt(Z) a <- 15 # Unit cell size kk <- kgauss(sigma,a) print(kk) # }
Run the code above in your browser using DataLab