powered by
beamDiskOverlap(s = 0, r = 1, theta.fwhm = 1)
s <- seq(0, 10, 0.1) plot(s, beamDiskOverlap(s, 4, 1), t='l', col=4)
Run the code above in your browser using DataLab