You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
665 B
Plaintext
18 lines
665 B
Plaintext
14 years ago
|
##################################################
|
||
|
|
################## strip.ka2 #####################
|
||
|
|
##################################################
|
||
|
|
strip.ka <- function(angle, intensity) {
|
||
|
|
# Function that strips (removes) the Cu Ka2 contribution
|
||
|
|
# from an experimental diffractogram (2Th, I(2Th))
|
||
|
|
# using the Rachinger algorithm.
|
||
|
|
## Args: 2theta vector
|
||
|
|
## intensity vector
|
||
|
|
## Values: intensity vector
|
||
|
|
# Ref: Birkholz2006, page 99 (Eq. 3.12), and page 31
|
||
|
|
Cu.Kai <- 0.154059 # nanometre
|
||
|
|
Cu.Kaii <- 0.154441 # nanometre
|
||
|
|
alpha.int.ratio <- 0.5
|
||
|
|
int.stripped <- intensity - alpha.int.ratio*intensity
|
||
|
|
return(int.stripped)
|
||
|
|
}
|