search for: continuumintensity

...6) return(ntotalclouds * dnorm(binno, sd = linewidth)) intensityfromcloud <- function(ncloudsbin, cloudintensity, exptime, amptype) return(cloudintensity * exptime * ramp(ncloudsbin, amptype)) photonsdetectedbin <- function(ncloudsbin, intensityfromcloud, continuumintensity, exptime, amptype, sensitivity) return(sum(rpois(ncloudsbin, sensitivity * intensityfromcloud)) + rgeom(1, 1 /(1 + (sensitivity * exptime * continuumintensity)))) lineprofile <- function(ntotalclouds, intensityfromcloud, continuumintensity,...