Displaying 2 results from an estimated 2 matches for "ampmean".
Did you mean:
amman
2000 Feb 11
2
R hangs sometimes and crashes (PR#429)
...(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, ampmean / sc, sc) * rpoi...
2000 Feb 15
1
rpois gives a large number repeatedly (PR#439)
...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, ampmean / sc, sc)
rp <...