Based on temperature dependence of the Mg-Fe distribution.
This sensor from TPF collection
| Article | Kretz, Ralph Transfer and exchange equilibria in a portion of the pyroxene quadrilateral as deduced from natural and experimental data, 1982 [ref] |
|---|---|
| Callibration | Experimetal and data from Skaergaard and Bushveld |
| Precision | ±60°C |
| Ranges | 750-1400 °C |
| See also | Kretz, 1982 <A> |
source("utilities_tpf.r");
sensors.t.cpx_opx_kretz_1982_b <- function(Cpx, Opx, usePFU = FALSE, ...){
row_names = paste0(Cpx$Name,"-",Opx$Name);
if(!usePFU) {
Cpx <- tpf.recalc_minaral("CPX",Cpx);
Opx <- tpf.recalc_minaral("OPX",Opx);
}
X <- Cpx$Fe_p2_pfu / (Cpx$Fe_p2_pfu + Cpx$Mg_pfu);
Y <- Opx$Fe_p2_pfu / (Opx$Fe_p2_pfu + Opx$Mg_pfu);
T <- 1130 / (log(Y / (1 - Y) * (1 - X) / X) + 0.505) - 273.15;
return(data.frame(Name=row_names,T_calc=c(T)));
}
sensors.t.cpx_opx_kretz_1982_b.args <- function(){
ars <- list();
ars$minerals <- c("Cpx", "Opx");
ars$ranges <- c();
return(ars);
}
#sensors.t.cpx_opx_kretz_1982_b.test <- function(){
# sensors.t.cpx_opx_kretz_1982_b(data.frame(Name=c('Test'), FeO_wtp=c(10), MgO_wtp=c(10)));
#}