Opx-Cpx: Brey, Kohler, 1990 <B>

Использовать Проверить

source("utilities_tpf.r");
 
sensors.t.opx_cpx_brey_kohler_1990_b <- function(Opx, Cpx, P, ...){
    Opx <- tpf.recalc_minaral("OPX",Opx);
 
    CAO <- Opx$Ca_pfu;
    T <- (6425 + 26.4 * P) / ( - log(CAO) + 1.843) - 273.15;
    warning(" ONLY FOR LHERZOLITES, EQ(10)");
    return(data.frame(Name=paste0(Opx$Name),P=P,T_calc=T));
}
 
sensors.t.opx_cpx_brey_kohler_1990_b.args <- function(){
    ars <- list();
    ars$minerals <- c("Opx", "Cpx");
    ars$ranges <- c("P");
    return(ars);
}
 
#sensors.t.opx_cpx_brey_kohler_1990_b.test <- function(){
#
#}