====== Opx-Ol: Mori, Green, 1978 ======
=== Details ===
This sensor from [[:about_tpf|TPF]] collection
^ Article | |
^ Collibration | |
^ Precision | |
^ Ranges | |
^ Renew sensors | |
* заголовок
* краткое описание
* статья
* ссылка
* карточка
* подробное описание
* код
* тест
=== Source ===
source("utilities_tpf.r");
sensors.t.opx_ol_mori_green_1978 <- function(Opx, Ol, ...){
Opx <- tpf.recalc_minaral("OPX",Opx);
Ol <- tpf.recalc_minaral("OL",Ol);
Z <- (Ol$Fe_p2_pfu + Ol$Fe_p3_pfu) / (Ol$Mg_pfu);
M <- (Opx$Fe_p2_pfu + Opx$Fe_p3_pfu) / (Opx$Mg_pfu);
X <- (Opx$Fe_p2_pfu + Opx$Fe_p3_pfu) / (Opx$Fe_p2_pfu + Opx$Fe_p3_pfu + Opx$Mg_pfu);
if (X<0.20) {
T <- 400 / (log(Z / M) + 0.21) - 273;
}
if (X>0.20) {
warning(" IS NOT TO BE USED FOR FE/(FE+MG) IN OPX >0.2 ");
}
return(data.frame(Name=paste0(Ol$Name,"-", Opx$Name),T_calc=T));
}
sensors.t.opx_ol_mori_green_1978.args <- function(){
ars <- list();
ars$minerals <- c("Opx", "Ol");
ars$ranges <- c();
return(ars);
}
#sensors.t.opx_ol_mori_green_1978.test <- function(){
#
#}
{{tag> tpf Ol Opx }}