Displaying 2 results from an estimated 2 matches for "avgphotonfromcloud".
2000 Feb 11
2
R hangs sometimes and crashes (PR#429)
...UNIX 4.0
Submission from: (NULL) (129.240.28.172)
I have the following R code:
ncloudsbin <- function(binno, ntotalclouds, numberofbins = 100, linewidth =
numberofbins / 6)
return(ntotalclouds * dnorm(binno, sd = linewidth))
photonsincidenttodetectorbin <- function(binno, ntotalclouds,
avgphotonfromcloud, ampmode = 1, ampmean = 2, numberofbins = 100, linewidth =
numberofbins / 6)
{
sc <- ampmean - ampmode
if(sc <= 0) stop("Mean Amplification must be greater than Mode Amplification")
ncb <- ncloudsbin(binno, ntotalclouds, numberofbins, linewidth)
return(sum(rgamma(ncb, am...
2000 Feb 15
1
rpois gives a large number repeatedly (PR#439)
...the two relevant functions, the latter somewhat expanded for debugging
purposes.
ncloudsbin <- function(binno, ntotalclouds, numberofbins = 100, linewidth =
numberofbins / 6)
return(ntotalclouds * dnorm(binno, sd = linewidth))
photonsincidenttodetectorbin <- function(binno, ntotalclouds,
avgphotonfromcloud, ampmode = 1, ampmean = 2, numberofbins = 100, linewidth =
numberofbins / 6)
{
sc <- ampmean - ampmode
if(sc <= 0) stop("Mean Amplification must be greater than Mode Amplification")
ncb <- ncloudsbin(binno, ntotalclouds, numberofbins, linewidth)
rg <- rgamma(ncb, ampm...