decomp(Sigdata, ncomp = 2, constant = TRUE,
typ = c("cw","lm"), control.args = list(),
transf = TRUE, LEDpower = 60, LEDwavelength = 470,
plot = TRUE, xylog= FALSE, lwd = 3, outfile = NULL)
"cw"
or "lm"
) of a decay curve, default typ="cw"
"outfile"
in ".csv"
format and saved to the current work directory0
if constant=FALSE)
I(t)=a1*b1*exp(-b1*t)+...+ak*bk*exp(-bk*t)
,
where k=1, 2, ..., 7
, I(t)
is the luminescence intensity as a function of time, a
is the number of trapped electrons, and b
is the detrapping rate. The constant component will be c
if constant=TRUE
.
For an LM-OSL decay curve, the fitting model (Bulur, 2000) is:
I(t)=a1*b1*(t/P)*exp[-b1*t^2/(2*P)]+...+ak*bk*(t/P)*exp[-bk*t^2/(2*P)]
,
where k=1, 2, ..., 7
, and I(t)
is the luminescence intensity as a function of time, P
is the total stimulation time, a
is the number of trapped electrons, and b
is the detrapping rate. The constant component will be c*(t/P)
if
constant=TRUE
.
Parameters are initialized using a differential evolution method suggested by Bluszcz and Adamiec (2006), then the Levenberg-Marquardt algorithm (available at control.args
) that control the performance of the differential evolution algorithm include:
factor: control the number of parents, np=factor*ncomp
, default factor=10
f: a weighting factor that lies between 0
and 1.2
, default f=0.5
cr: a crossover constant that lies between 0
and 1
, default cr=0.99
maxiter: the allowed maximum number of iterations, default maxiter=500
tol: a tolerance for stopping the iteration, the iteration will be terminated if the relative standard deviations of parameters are smaller than tol
, defalut tol=0.1
Bluszcz A, Adamiec G, 2006. Application of differential evolution to fitting OSL decay curves. Radiation Measurements, 41: 886-891.
Bulur E, 2000. A simple transformation for converting CW-OSL curves to LM-OSL curves. Radiation Measurements, 32: 141-145.
Differential evolution algorithm,
More JJ, 1978. "The Levenberg-Marquardt algorithm: implementation and theory," in Lecture Notes in Mathematics: Numerical Analysis, Springer-Verlag: Berlin. 105-116.
Further reading
Adamiec G, 2005. OSL decay curves-relationship between single- and multiple-grain aliquots. Radiation Measurements, 39: 63-75.
Choi JH, Duller GAT, Wintle AG, 2006. Analysis of quartz LM-OSL curves. Ancient TL, 24: 9-20.
Li SH, Li B, 2006. Dose measurement using the fast component of LM-OSL signals from quartz. Radiation Measurements, 41: 534-541.
data(Signaldata)
decomp(Signaldata$lm,ncomp=3,typ="lm",control.args=list(maxiter=10))
Run the code above in your browser using DataLab